#!perl -pi.bak #replace.pl s/currentString/replacementString/sg;