($a)=/\pl/g,s/\?/@$a/&&print,@$a=/\d/gfor<>