user@machine$ perl -pe 's/(?<=.)(?