use strict; use warnings; use FindBin; use File::Basename 'fileparse'; my @dirs = grep { -d $_ } glob("$FindBin::Bin/common/*"); for my $dir (@dirs) { my @files = grep { /table\d\.pm/ } glob("$dir/*"); for my $file (@files) { my $content = do { open my $fh, '<', $file; local $/; <$fh>; }; $content =~ s/table(\d)/TABLE$1/g; $content =~ s/TABLE2_alias/TABLE2_ALIAS/g; $content =~ s/key(\d)/KEY$1/g; my $base_name = (fileparse($file, qr/\..+$/))[0]; $base_name = uc $base_name; my $new_file = "$dir/$base_name.pm"; open my $fh, '>', $new_file or die "Can't write file: $!"; print $fh $content; } }