use CGI qw(header param); print header;
foreach (param) { ($$_ = param($_)) =~ s/\r\n|\n/<BR>/g; }

##</code><code>##

(my $some_variable = param('textbox-name')) =~ s/\r\n|\n/<BR>/g;