my $outputString = 'this is a $1';
my $sampleData = "Testing 1 2 3";
my $searchString = "(Test).+";
if ($sampleData =~ m/$searchString/) {
    print $outputString."\n";
}