> @v = split / /, "xxx yyy (zzz)";

sau qw("...") :)

> $last = $v[@v];
> $last =~ s/[\[\]\(\)]//g;
> print $last;

-- 
Stefan Laudat
-------------
The only thing I feel when I kill is recoil.

---
Send e-mail to '[EMAIL PROTECTED]' with 'unsubscribe rlug' to 
unsubscribe from this list.

Raspunde prin e-mail lui