вопрос, есть текстовый файлик вида:

a:2:{s:5:"login";s:5:"admin";s:3:"pwd";s:6:"tester";}
.....
...

как мине в переменную из этой строчки вытащить login и pwd. (в данном примере admin и tester )

спасибо за помощь..

# perl -le 'print join "\n",(split "\"",$ARGV[0])[3,7]' 'a:2:{s:5:"login";s:5:"admin";s:3:"pwd";s:6:"tester";}'
admin
tester
#

спасибо мужики!
то что надо!

можно ещё вопрос, как из массива имён вытащить только по одному имени, даже если он повторяется
пример
@str= 'dima vase igor dima lese vase';

результат должен быть: 'dima vase igor'

hash?

нет. просто есть строка вытащенная и файла. в которой повторяются слова. надо что бы все слова были уникальны.

массив в хешь = уникальность элементов массива

запустил не работает. =((
1, 2, 3, 1, 2, 3, 1, 2, 3
1, 3, 2

Добавлено через 2 минуты и 10 секунд
упс... у меня что-то с мозгами.... спасибо всё работает.... =))

почему на работает поиск по массиву:
if (@m =~ /data/) 
или в перле незя так искать в массиве?

Так нельзя или через цикл или коротко 

# perl -le '@ary = qw(a b c d); print "a: ",@ary ~~ m#a#?"yes":"no"; print "e: ",@ary ~~ m#e# ? "yes" : "no"; print "Perl: ",$^V'
a: yes
e: no
Perl: v5.10.0
# 

arto, "~~" - новые вкусности)... 
забыл совсем(

This is perl, v5.8.9 built for i386-freebsd-64int  =((
в портах 10 нету =(

ладно а если циклами...

@a = (1,2,3,1,2,3,1,2,3);
print join(', ',@a)."\n";
my %hash;
foreach my $element (@a) {$hash{$element}++;}
print join(', ',keys %hash)

если я сделаю так:
@mas=join(', ',keys %hash);

то как мине обратится к элементам массива по индексам? $mas[3] - не работает.... ='(

grep { !$_{$_}++ } split ",","a,b,s,b,a"