in reply to Determining uniqueness in a string.
To speed things up, one easy step is to precompile the
(static) pattern using the qr// operator, like qr/^\d{10}$/, or using the m//o flag, as in
Also, the print statement might prove too expensive; perhaps, syswrite() is a better choice -- if you must write to output.die unless /^\d{10}$/o;
In Section
Seekers of Perl Wisdom