If by "tie into a perl script" you mean easily initegrate, maybe not. kdiff3 seems to to the job, though. Perhaps you can use the code in your script.

You could also wrap Algorithm::Diff with something like Text::Diff::HTML if you wanted.