#!/usr/bin/perl -w
use strict;
my $name = $0;
$name =~ s,.*[/\\],,;
my ($from, $to) = map lc, ($name =~ /([a-z]+)2([a-z]+)/i);
while (<>) {
    s/$from/$to/go;
    s/\u$from/\u$to/go;
    s/\U$from/\U$to/go;
    print;
}