my $line = ""; while (local $_ = ) { print and next if $. <= 3; chomp; ($line = $_) =~ s/\S.*// if $line eq ""; # keep indent s/^\s*//; $line .= $_ . " "; if (m{/\d+:\d+ \W* $}x) { print "$line\n"; $line = ""; } }