#!/usr/bin/perl
use strict ;
use warnings ;

##</code><code>##

@ARGV=(qw/abc.txt/) ;

##</code><code>##

while(<>) {
 s/trojan is like viruse/hello/g;
 print ;
}