undef $/; # Enter "file-slurp" mode. $text = <>; # Slurp up the first file given on the command line. $text =~ s/&/&/g; # Make the basic HTML . . . $text =~ s/</g; # . . . characters &, <, and > . . . $text =~ s/>/>/g; # . . . HTML safe. $text =~ s/^\s*$/
/mg; # Separate paragraphs. # Turn email addresses into links . . . $text =~ s{ \b # Capture the address to $1 . . . ( \w[-.\w]* # username \@ [-a-z0-9]+(\.[-a-z0-9]+)*\.(com|edu|info) # hostname ) \b }{$1}gix; print $text; # Finally, display the HTML-ized text. ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl