You forgot to escape the last dot and to make the ar. optional :-)
if ($file =~ /^\d{4}.*-www\.t(?:ar\.)?gz$/i) {
Oops! Thx :)
Now it matches either .tag.gz or .tgz as you intended. I don't think Jas needs that though.
I agree - it was just another way to look at the problem.
-Bill- __Sx__________________________________________ http://youve-reached-the.endoftheinternet.org/
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>