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