Select Code to Download

use utf8;
use locale;
...
die "No match\n" unless $tst =~ /(\w+)/;

print $1, "\n";