#!/usr/bin/perl -i.orig -p

tr/a/b/;