use strict;

my $pattern = '\.pm$';

opendir(TARGET, ".") or die "Can't open current directory: $!";

# First try
my @targets = grep(/$pattern/, readdir TARGET);
print join("\n", @targets), "\n\n";

# Second try
rewinddir(TARGET);
@targets = grep {/$pattern/} readdir TARGET;
print join("\n", @targets), "\n\n";