The square brackets are unnecessary. next unless $path =~ /\.(log|txt)$/;You could also be a little more parsimonious: next unless $path =~ /\.(?:log|txt)$/;Thus avoiding a (presumably unnecessary) capture to $1.

The square brackets are also what made your post render weird. ;-)

This worked exactly as needed! Thanks

another form of negation could be

next if $path !~ /\.(?:log|txt)$/;
[download]

Sorry monks.

To late i noticed that Enlil already mentioned my comment. So i'll go up to my room and flagelate myself.

You need code tags, but the linking of '\.log' suggests that you have square brackets around that in the regex. Try: next unless ($path =~ /\.log$/); Square brackets will turn that into a character class, testing for any of the individual characters of '.log'.

Have you looked at File::Find or glob for this task?

After Compline,
Zaxo

Zaxo,
Exactly what I was thinking - unless there is something the OP isn't telling us, there is no need to even do the work.

#!/usr/bin/perl -w
use strict;
while (glob("*.txt *.log")) {
    print "$_\n";
}
[download]

Where you only get .txt and .log files, although I would have used <*.txt *.log>.

Cheers - L~R

use File::Find::Rule;

my @files = find(
  file =>
  name => [ '*.txt', '*.log' ],
  in   => $your_path_here
);
[download]

_________
broquaint

Both of these should work:

next unless ($path =~ /\.(?:txt|log)$/);
next if ( $path !~ /\.(?:txt|log)$/;
[download]

-enlil