my $root = "/home/monks/thanksforhelping";
my $ext = ".ext";

$string =~ /($root \d+ $ext)/x;
my $filename = $1;