#!/usr/bin/perl -wpi
BEGIN { ($src,$dst)=(@ARGV); }
s/$src/$dst/g;