% perl -we '$_="foo"; s/(.)/\1/'
\1 better written as $1 at -e line 1.