Select Code to Download

perldoc -f pos
       pos SCALAR
...
               "\G" zero-width assertion in regular expressions. Becau
+se a
               failed "m//gc" match doesn't reset the offset, the retu
+rn from
               "pos" won't change either in this case.  See perlre and
+ perlop.

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