Select Code to Download

my $previous = "";
while (<$handle>) {
    print $previous if /BEEP/;
    $previous = $_;
}