in reply to Question: File name pattern match using Grep function
#!/usr/bin/perl
use strict;
use warnings;
my @filename =();
while (my $File = <*>) {
if (! -f "$File") {
# Ignore directories and such
next;
} elsif ($File =~ m/\.txt$/o) {
push (@filename,$File);
}
}
foreach my $val (@filename) {
print $val,"\n";
}