#!c:/perl/bin/perl.exe
use strict;
use warnings;
use CGI;
my $q = CGI->new;
#my @lines = split /\n/, $q->param(q{txt_area});
my @lines = split /\r\n/, $q->param(q{txt_area});
print $q->header;
print qq{*$_*} for @lines;
####
textarea test
####
*one**two**three*
####
*one **two **three*