#!/usr/bin/perl print "content-type:text/html\n\n"; use CGI; $cgi=new CGI; $search=$cgi->param('search'); $search='SSSS';# it may be any patterns like AAAA,ADLSD etc., $search='SIVA'; $count=0; print "Search String in SWISS-PROT

Matching String Position in SWISS-PROT

"; print "
\t\t\t        Searched String is    $search
"; print ""; print ""; $patterlength=length($search); print "
";
@arrat2 = ();
			#@array2 = $_;
			@array2=("MASVKSSSSSSSSSFISLLLLSIVAIAAAALLVIVLQAAAASQVIECQPQQSCTASLTGSIVALNVCAPFLVPGSIVASPTASADLSDTECCNAVADLSDQSINHDCMCNTMRIAAQIPAQCNLPPLSCSANSSS");
$result=index($array2[$i],$search);
while ($result != -1) 
{
$offset = $result + 1;
push(@start1,$offset);
push(@start,($offset-1));
$result = index($array2[$i1], $search, $offset);
$result2= $offset +(length($search));
push(@end1,$result2);
push(@end,$result2-1);
print "Matching Position [",$offset," - ",$result2,"]\n";
}     
if (defined $array2[0])
{
@arr = split('',$array2[0]);
}
print "";$ss=0;
for(local $j=0;$j<=$#start;$j++)
{
for(local $i=$ss;$i<=$#arr;$i++)
{	
if($start[$j] == -1)
{next;}
if($i % 10 == 0)
{ print " ";}
if($i % 60 == 0)
{print "
";}
if($start[$j] != $i && $i<$start[$j])
{
print "$arr[$i]";	
}
if($start[$j] == $i)
{
line:	$k=$i;
do
{
if($k % 10 == 0 && $k != $start[$j])
{ 
print " ";
}
if($k % 60 == 0 && $k != $start[$j])
{		
print "
";
}
print "$arr[$k]";$k++;
}until($end[$j] == $k || $end[$j+1] == $k );$ss=$k;
if($k-1 == $start[$j+1])
{
$i=($start[$j+1])+1;
$j=$j+1;goto line;
}
elsif($k-1>$start[$j+1] && $j <$#start) 
{
$i=$k;
$j=$j+1;goto line;
}
else
{last;}
}
}
}
for(local $i=$k;$i<$#arr;$i++)
{
if($i % 10 == 0)
{ print " ";}
if($i % 60 == 0 )
{print "
";}
print "$arr[$i]";
}@arr=();
print "
";