#!/usr/bin/perl -i.bak
while(<>) {
 s/trojan is like viruse/hello/g;
 print
}