ブラックリストに含まれる拡張子のファイルを検知

fileext_sample.pl

#!/usr/bin/perl

@blacklist = qw(pl conf pm);

$filelist_str = <<EOF;
aaa/bbb/test.jpg
aaa/bbb/test.png
aaa/bbb/test.pl
aaa/bbb/test.pm
aaa/bbb/test.conf
aaa/bbb/test.jpg
EOF

@filelist = split("\n", $filelist_str);

foreach $filename (@filelist) {
	if ($filename =~ /.*\.(.*)$/) {
		$ext = $1;
		if ( grep { $_ eq $ext } @blacklist) {
			print("$filename found\n");
		}
  }
}