# This doesn't work
my @files = `ls *`;
chomp(@files);
@files = grep { /\.p[lm]$/ } @files;