#!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;