use 5.010;

my $make_output_string = sub { "this is a $_[0]" };

...

if ($sample_data =~ m/$search_string/)
{
    say $make_output_string->($1);
}