use the ^ operator (see perlop) , search for string difference site:perlmonks.org, and use Benchmark::cmpthese

since you have an effective node title, you might as well use code tags :)