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