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

die unless /^\d{10}$/o;
[download]

Also, the print statement might prove too expensive; perhaps, syswrite() is a better choice -- if you must write to output.