DB<124> $a=42; $a =~ s/(.)(.)/(sort { $a <=> $b } $1,$2)[0]/e ;$a
 => 2

  DB<125> $a=42; $a =~ s/(.)(.)/(sort { $a <=> $b } "$1","$2")[0]/e ;$a
 => 2

# UPDATE with /g flag

  DB<107> $a=4215; $a =~ s/(.)(.)/(sort { $a <=> $b } $1,$2)[0]/eg ;$a
 => 21

  DB<108> $a=4215; $a =~ s/(.)(.)/(sort { $a <=> $b } "$1","$2")[0]/eg ;$a
 => 21

##</code><code>##

$ perl -v

This is perl 5, version 14, subversion 2 (v5.14.2) built for i686-linux-gnu-thread-multi-64int