> echo "Hello Dolly" | perl -lpe "s/l(lo)/$1/"
He Dolly