[tricipitinus]

danke, habs schon geschafft...falls es jm. interessiert ^^

#! /usr/bin/perl -w

use LWP::Simple;

#Eingabeaufforderung der URLs
print "Enter URLs including http:// , use blanks to seperate them: ";
chomp ($input  = <>);
@urls = split ( /\s+/,$input);

#Jeder link wird geladen und nach dem Muster <title>*</title> durchsucht
foreach $url (@urls) {
  my($html)=get($url);
  print "\nThe webpage: $url has the title: ";
  $html =~ m/(<title>.*<\/title>)/i; #Hier wird ein Patternmatch durchgeführt, das /i bewirkt no-case-sensitivity
  print $1 . "\n";
}