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

##</code><code>##

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

##</code><code>##

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