#!/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;