Help for this page
#!/usr/bin/perl use strict ; use warnings ;
@ARGV=(qw/abc.txt/) ;
while(<>) { s/trojan is like viruse/hello/g; print ; }