Select Code to Download

$searchString = '(T)(est).(\d{2}).*';
$outputString = 'This $3 a $1$2';
...
print "\n";
__END__
This 22 a Test