[Perl]Парсинг строки вида "one:two"

[cooler]

Задача: при обработке вида

open (DRAW, "somefile.txt") or die "Can`t open file : $!\n";
    while ($line = <DRAW>) {

необходимо вытащить из $line две переменные $one и $two разделителем между которыми является двоеточие ":".

Решение:
Достигается следующим образом:
[HIDE-THANKS]

open (DRAW, "somefile.txt") or die "Can`t open file : $!\n";
    while ($line = <DRAW>) {
my ($one,$rcpt) = $line =~ /(\w+)\:(\w+)/;
#your code next
}

[/HIDE-THANKS]

Спасибо ~RA~ за подсказку.