use strict; use warnings; use File::Slurp qw/ edit_file_lines /; use File::Find::Rule; my @files = File::Find::Rule->file() ->name(qr/^rc\.itm\d+$/) ->prune ->in('/etc'); edit_file_lines { s/(.*start ux)/#$1/ } $_ for @files;