Help for this page

Select Code to Download

Select or download this

   use strict;
   use warnings;
...
   $result         =~ s,\n,<br />,gsm;

   print $result;