11/22   Dear Perl monkeys, how do I match a substring at the end of a string?
        I want to match '.txt' but not '.txt.gz' or similar.  -thanks
        Something like if($filename <ends with> @valid_extensions) {}
        \_ $ext = join '|',@valid_extensions;
           if ($filename =~ /\.($ext)$/) { ... } # -geordan