while (<DATA>) {
   chomp;
   print "\n" if /;/;
   print $_;
}
print "\n";