for my $str ( 1..3 ) {
   my $lex = "";
   $str =~ m#
      (\d)
      (?{ $lex = $1; print " In: $lex\n" })
   #x;
 
   print "Out: $lex\n";
}