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