' 1a2' =~
  m/(.(?{$char = substr($_,pos(),1);
         print "$char ";
         print $char =~ m|\d|
               ? "digit\n"
               : "not digit\n"; }))+/;