> echo 'JHTML `Java in here` code' | perl -p -e 's/`(.*)`/<%=$1%>/go'
>
> JHTML <%=Java in here%> code

##</code><code>##

> echo 'JHTML `Java in here` code' | ./myReplace.pl '`(.*)`' '<%=$1%>'
>
> About to replace: s/`(.*)`/<%=$1%>/go
> JHTML <%=$1%> code

##</code><code>##

#!/usr/bin/perl -w

my $searchExp = $ARGV[0];
my $replaceExp = $ARGV[1];
my $textIn = <STDIN>;
my $count = 0;

# Do the replacing
print("About to replace: s/$searchExp/$replaceExp/go \n");
$count = ($textIn =~ s/$searchExp/$replaceExp/go);

if ($count > 0) {
   print $textIn;
}

exit;