m{^.* / ([\w-]+) / .*\.txt}x

##</code><code>##

my $dir;
$dir = $1 if ##regex_here##