strfry@argc:~> perl -Mstrict -we 'my$i="Toodles";$i=~s/(Toodles)/\1 is a GENIUS/g;print "$i\n";'
\1 better written as $1 at -e line 1.
Toodles is a GENIUS