convert-gpl

   1 #!/usr/bin/perl
   2 use strict;
   3
   4 while (<>) {
   5     s/&/&amp;/g;
   6     s/</&lt;/g;
   7     s/>/&gt;/g;
   8     s/\f/<hr>/;
   9     s#(&lt;)(https?:.*?)(&gt;)#$1<a href="$2">$2</a>$3#g;
  10     print $_;
  11 }