#!perl -p
s/\w+/$+[0]-pos."_".$&/ge