in reply to Regular expression

I think what you're looking for is 

m/(\d{7,})/;

[download]

which will capture seven or more digits in a row and place them into $1. But it's hard to tell, it would be nice if you could try to phrase your question a little clearer, (and use code tags so other people don't have to add them to your post).


Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it. -- Brian W. Kernighan

In Section Seekers of Perl Wisdom