If the strings are really long and hard to read through, look at Test::LongString.

Test::Differences can be useful for this too.