#!/usr/bin/perl #undef $/; $/=''; print "

\n";
while(<>){
 chomp;
 if(/^(.*)\n/){
    print "\nPt: $1\n";
    my $a = "$'\n";
    $a =~ s/(.+)\n/\n/g;
    print "$a\n\n"
 }
}
print "

\n";