Select Code to Download

#!/usr/bin/env perl
use Modern::Perl;
...
caz
ciz
cuz

my $lbl; # lookback line
while ($buff[$.%($lb+1)] = ($_ = <DATA>)) {
    print $lbl if $lbl = $buff[($.+1)%($lb+1)] and /$match/;
}