/\pL/,$a=$&,s#\?#@$a#&&print,@$a=/\d/gfor<>