12:04 >perl -we "my @files = qw(yes.h noh); for (@files) { printf qq[%s: %s\n], $_, /$ARGV[0]$/ ? 'match' : 'no match'; }" .h
yes.h: match
noh: match

12:07 >perl -we "my @files = qw(yes.h noh); for (@files) { printf qq[%s: %s\n], $_, /\Q$ARGV[0]\E$/ ? 'match' : 'no match'; }" .h
yes.h: match
noh: no match

12:07 >