Select Code to Download

my $last4 = '';
my $buffer = '';
...
got last-0123    buffer-4567890
buffer match
got last-7890    buffer-

my $last4 = '';
my $buffer = '';
...
}
__DATA__
1234567890123456789012345678901234567890123456789012345678901234567890