Select Code to Download

#!/bin/bash
file=$1
var=$2
cat $1 | perl -e 'perlcodeinhere' >output

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

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