die "Usage $0 remove_regex replace_regex" if (@ARGV !=2);
my ($remove, $replace) = @ARGV;

while(<stdin>)
{
   s/$remove/$replace/g;
   print;
}