If you go back to a pure perl approach, you could look in Test::Files for examples of using Algorithm::Diff. <discloure>I wrote Test::Files</disclosure>

You probably don't want to use Test::Files, since it doesn't provide control over the output format. Although, it does have filters which let you modify the input before it is compared (like your example of ignoring lines with WARNING in the third position).

Phil