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