linux-l: mal wieder perl...geht das besser?

[Ulrich Wiederhold]

Hallo, folgende Zeile, die zerlegt werden soll:
>> :mynick!ident at p3E9BEB0D.dip.t-dialin.net MODE #channel +v nick

Ich mache das mittels:
$line =~ /:([^!]*)!([^@]*@[^ ]*) ([^ ]*[\s])([^ ]*[\s])(..)\s(.*)/;
my $command = $3;
 chop $command;
my $channel = $4;
  chop $channel;

Allerdings muß ich wegen \s immer noch einen whitespace-character
abtrennen. Geht das auch ohne? Also was anderes für ([^ ]*[\s]) ?

Gruß
Uli