$ perl /tmp/prueba.pl

Found..
pos = 10