echo "m!/(.*)|!;" | perl -pe's/\|/\\\|/'