Select Code to Download

use warnings;
use strict;
...
# or inline

work(2, 3, sub { print "$_[0], $_[1]\n"; })

my $regex = qr/$self->{regex}/;
while(<$input>){
    my $result = /$regex/;
        $self->{callback_ref}($result,$line,$output);
}