#!/usr/bin/perl -w

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

# Do the replacing

eval "\$count = (\$textIn =~ s/$searchExp/$replaceExp/go)";

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

exit;

##</code><code>##

>> echo 'JHTML `Java in here` code' | perl p11.pl '`(.*)`' '<%=$1%>'

JHTML <%=Java in here%> code