Print line if next line is... Problem: Perl to the rescue