use 5.010;
($x, $y) = ("office2003", "offer");
say length((($x^$y) =~ /(\x00+)/)[0]);
__END__
3