Help for this page
c:\@Work\Perl\monks>perl -wMstrict -le "my ($x, $y, $z) = qw(TTTATTT TTTTTTT TBTTTTT); ... TTTTTTT TBTTTTT diff(s) at offset(s) 1