/\pl/,*V=$&,s/\?/@V/?print:(@V=/\d/g)for<>