1
2

$string = "http://www.google.com/ie?q=www.diamant-solitaire.de&hl=de&ie=ISO-8859-1&btnI=Auf+gut+Gl%FCck%21";
$string =~ s!http://www\.google\..*?/.*?\?q=(.*?)&hl=.+!$1!;

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]