Select Code to Download

no warnings 'regexp'; ($str0 ^ $str1) =~ /^((??{chr(0)})*)/;
$commonLen = $+[0];

($str0 ^ $str1) =~ /^\0*)/;

#!/usr/bin/perl -l

...
aaaa aabb
aaaa aaab
aaaa aaaa