perl -e "\$_='qwerty'; s/r/print pos(). \"\n\";/e; print \$_;"
3
qwe1ty