open(OUT,">$outfile");
open(F1, "<$infile")   or die "Could not open $infile for reading!\n";
$/ = "#";
while (<F1>) {
      chomp; # <--- remove trailing newline character
      print OUT "$_\n";
}