Simple RegExp.-Suche

[Johannes Lichtenberger]

if ($query->param()) {
  foreach ((my $uri = $query->param('websites')) =~ /(http\S*)/gi) {

Natürlich
  foreach ((my @uri) = $query->param('websites') =~ /(http\S*)/gi) {
    my $uri = shift @uri;

Kommt allerdings irgendwie auf's gleiche raus.