I agree that they are likely to be different, but simply printing them with a delimiter will not show all possible differences.

This is what I use instead:

use Data::Dumper;
local $Data::Dumper::Useqq = 1;
print Dumper($str1, $str2);
[download]