open (CINGULAR, "c:/documents and Settings/david price/my documents/cingular.txt") || die "cannot open: $!"; @number=; close (CINGULAR); $count=0; while ($count<100) { if (@number=~[/^9432$/g]) { print "match found"; } else { print "match failed"; } $count++; }