Newbie question

[Anidil Rajendran-Raj]

Firstname Lastname 650 156 7190:somfield:somefield:somefield
Firstname Lastname 408 256 7290:somfield:somefield:somefield
Firstname Lastname 510 3456 7390:somfield:somefield:somefield
            ******more lines here *******
Firstname Lastname 415 3456 7390:somfield:somefield:somefield



I have about 300 lines like this in a file and I am trying to create an array of 
phone numbers

open (FILE,"thefile") or die;
@array =3D <FILE>;
my @phone;
for each $string (@array) {
  $phone[$i] =3D ($string =3D~ /\s\d+\s\d+\s\d+:/) ;
  $i++;
}

This  does not work, what am I doing wrong? or it there a better way?

Thanks



raj
[EMAIL PROTECTED]
650.730.8271
<www.netliant.com>


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]