open FILE, $file or die "Couldn't open file: $!"; my @file = ; foreach (@file) { s/ome/substitution/ if ($applicable); } close FILE;