use CGI::Simple;
my $q = CGI::Simple->new();

my $txtarea = $q->param('usrInput');
$txtarea = '' unless( defined($txtarea) );

$txtarea =~ s#\r+##g;
$txtarea =~ s#\n{2,}#<br />\n#g;