while(<>) { $line = $_; chomp($line); $line =~ s/DK4/DK3/g; print "$line\n"; }