Looks like the output from a diff program to me, not a perl script.