open(my $fh, '<', "apache.txt") or die $!; while (<$fh>) { s/\bis\b/are/g; print; } #### perl -pe"s/\bis\b/are/g" apache.txt