# Read in all the file names: my @files = <*.$fileex>; # Go through files one at a time foreach my $file (@files) { # Open $file # edit file # close $file }