$tmp =~ m/(.+)(\d+)$/;
${$1} = $2;

##</code><code>##

$ perl -e 'do() || ! do() ;'
Undefined subroutine &main::try