in reply to Problem with pattern match

Why not just: 
push (@last, $1) && last if (/:(^:)+$/);

[download]
HTH.
ÅßÅ×ÅßÅ
"It is a very mixed blessing to be brought back from the dead." -- Kurt Vonnegut

In Section Seekers of Perl Wisdom