1
2
3
4

@array = qw("User1 PS1 10.10.1.1","User2 PS2 10.10.1.2","User3 PS3 20.20.1.1","User4 PS4 20.20.1.2");

($ip[0] = $array[0]) =~ s/User1 PS1 (.+)/$1/;
($ip[1] = $array[3]) =~ s/User4 PS4 (.+)/$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]