my $re = qr(/);
my $code = sub {if ($_[0] =~ $re) { blah() }};

...

$code->($data);