#!/usr/bin/perl -wpi
my $src = shift;
my $dst = shift;
s/$src/$dst/g;