Помогите решить задачку (Perl)

[n0n]

Задача следующая - надо разбить строку типа

ftp://login:pass@host.com

соответственно на $login, $pass и $host, проблема заключается лишь в том что в pass - может содержаться символ "@" , а может и не содержаться. Вот как это учесть? Не могу придумать...

Заранее благодарен.

[Gike]

$a='ftp://login:pass@host.com';
$a=~/ftp:\/\/(.*):(.*)\@(.*)/g;
$login=$1;
$pass=$2;
$host=$3;