Shell Programming and Scripting

#! /usr/bin/perl -w

open(FILE,"$ARGV[0]") or die;
my @temp=<FILE>;
close FILE;

my $f=join("",@temp);
$f=~s/^>gi/ronaldo/g;
my @reco=split("ronaldo",$f);
my $dis=shift(@reco);
pen(FILE,"$ARGV[1]") or die;
my @temp1=<FILE>;
close FILE;

if($reco =~ /$temp1/)
{
print "YES";
}
else {
print "NO??????\n\n";
exit;
}

$ 
$ cat f1
>hi|23433|sp|he is RAJ >hi|23333|df|He is HUMAN >hi|222|gi|howru|just
WOWHEISWONDERFUL
>hi|25559|gs|heisANUJ >hi|2232|sp|he is fool
SKSIKSIKSLKSSLLS
$ 
$ cat f2
HUMAN
$ 
$ perl -ne 'BEGIN{open(F2,"f2");chomp($x=<F2>);close(F2)}{print $x," ",substr($_,1,index($_,">hi",1)-1),"\n" if /$x/}' f1
HUMAN hi|23433|sp|he is RAJ 
$