use strict;
use warnings;
my @filename=(raja.exe,rhs.dll,sd.sf);
my $pattern='(\.exe) | (\.dll)';
foreach( @filename) {
  print $_ if( $_ =~ /$pattern/x ); 
}
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.