my @lines = $pop->Body($i); ## Some code passes, not much, not a little, what am I, a watch? ## iterate over @lines, checking if we want to keep it. print OUTPUT "\n"; foreach $line (@lines) { if ($line =~ /^--$/) { # Everything else is signature, # so we break the foreach loop last; } else { print OUTPUT $line; } } print OUTPUT "\n<\body>\n";