if($file =~ /^(\d{8})-www\.tar\.gz$/) {
I believe you might like this better -
...
if ($file =~ /^\d{4}.*-www\.t(?:ar.)gz$/i) {
...-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>
