perl -E 'say shift =~ /(\d)(\d)/' 12 => 12
perl -E 'say shift =~ /(\d){2}/'  12 =>  2