#!/usr/bin/perl -p -i
# desc{    amp-escapes mailto: URLs   }

s/\@/&#64;/g;
s/mailto\:/&#109;&#97;&#105;&#108;&#116;&#111;&#58;/g;

__END__