Inspired by yesterday's Chatterbox sillyness, we find that McD is not too far from being Just Another Perl Hacker.

If you hack this script, though, you can see that he's a long way from saint, and an even longer way from Petruchio (who originally demonstrated that tye could, in time, become silly).

My first ever obfuscation offering, with thanks to The Wolf and John Klar, and apologies in advance if it's already been done.

#!/usr/bin/perl -lw

sub c {
  my $r = $i = 0;
  map {$r += index(' abcdefghijklmnopqrstuvwxyz',$_) * (26 ** $i++);} 
+reverse split (//, lc(shift));
  $r;
}

$s = c('McD');
$t = c('JAPH');
$d = $t-$s;

for($i=0, $c='McD'; $i<$d; $i++, $c++) {}

print $c;
[download]

Peace,
-McD