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