cat $i | perl -e 'while(<>){$_=~ s/$ARGV[0]//g;print;}' $var >$i.new