#!/usr/bin/perl $RfcIndex = "/home/vince/rfc/rfc-index.txt"; $contents = `cat $RfcIndex`; $contents =~ s/&/&/g; $contents =~ s//>/g; $contents =~ s/\n(\d{4})/\1<\/a>/g; $contents =~ s/(RFC(\d{3,4}))/\1<\/a>/g; print < RFC Index 
$contents
EOF