I have had similar problems, its besause it puts a hard return in with the newlines.

Use:

$string =~ s/\r\n/<br>/g;
or
$string =~ s/\n\r/<br>/g;
[download]

not sure which.

my $name = 'Ben Kittrell'; $name=~s/^(.+)\s(.).+$/\L$1$2/g; my $nick = 'tha' . $name . 'sta';