@links = m/((?:www|http:\/\/)[anything allowed in a link \n]*)/ig;
for (0..@"#links) {
  $links[$_] =~ s/.$//;
  $links[$_] =~ tr/\n//d; #Remove inline newlines.
}