$searchString = "(T)(est).(.{2}).*";
$outputString = 'This $3 a $1$2';
$sampleData = "Test is good";

if ($sample_data =~ m/$search_string/)
{
    say $make_output_string->($1,$2,$3,$4,$5,$6,$7,$8);
}