open F1, "$ARGV[0]";
while (<F1>) {
	last if ($frase>$ARGV[1]);
	if (/^#/) {
		print $s;
		$frase++;
		undef $s;
	}
	$s.=$_;
}

close F1;