open(file, "apache.txt") ;
@modify = <file> ;

print @modify ;
foreach(@modify){
chomp($_);
$_ =~ s/^is$/are/g ;
}
print @modify ;
print "this is new print" ;