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/ . . . $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; # Turn HTTP URLs into links . . . $text =~ s{ \b # Capture the URL to $1 . . . ( http:// [-a-z0-9]+(\.[-a-z0-9]+)*\.(com|edu|info) \b # hostname ( / [-a-z0-9_:\@&?=+,.!/~*'%\$]* # Optional path (?$1}gix; print $text; # Finally, display the HTML-ized text. ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl