<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;"><DIV>Sir </DIV>
<DIV>I want to use script</DIV><SPAN lang=EN>
<DIV>perl -e '</DIV>
<DIV>$unique=0;</DIV>
<DIV>$total=0;</DIV>
<DIV>while(&lt;&gt;) {</DIV>
<DIV>if (/^&gt;\S+/) {</DIV>
<DIV>$total++;</DIV>
<DIV>if (! ($seen{$&amp;}++)) {</DIV>
<DIV>$unique++;</DIV>
<DIV>$print_it = 1</DIV>
<DIV>}</DIV>
<DIV>else {</DIV>
<DIV>$print_it = 0</DIV>
<DIV>}</DIV>
<DIV></DIV>
<DIV>};</DIV>
<DIV>if ($print_it) {</DIV>
<DIV>print $_</DIV>
<DIV>};</DIV>
<DIV>}</DIV>
<DIV>warn "\nChose $unique unique FASTA records out of $total total.\n\n";</DIV>
<DIV>' a.fsa &gt; unique.fsa</DIV>
<DIV></SPAN>&nbsp;</DIV>
<DIV>&nbsp;</DIV>
<DIV>When i am saving the file and trying to run in perl installed directory the message is</DIV>
<DIV>&nbsp;</DIV><SPAN lang=EN>
<DIV>C:\NELU\PERL&gt;duplicate.pl<BR>Bareword found where operator expected at C:\NELU\PERL\duplicate.pl line 21, nea<BR>r "' a"<BR>&nbsp; (Might be a runaway multi-line '' string starting on line 1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (Missing operator before a?)<BR>syntax error at C:\NELU\PERL\duplicate.pl line 1, near "perl -e "<BR>Execution of C:\NELU\PERL\duplicate.pl aborted due to compilation errors.</DIV>
<DIV>C:\NELU\PERL&gt;</DIV>
<DIV>&nbsp;</DIV>
<DIV>&nbsp;</DIV>
<DIV>Could you please suggest me some ways to solve it</SPAN><BR><BR></DIV>
<DIV align=left>Kinshuk Chandra Nayak </DIV></td></tr></table><br>
      <!--1--><hr size=1></hr> Connect with friends all over the world. <a href="http://in.rd.yahoo.com/tagline_messenger_1/*http://in.messenger.yahoo..com/?wm=n/"> Get Yahoo! India Messenger.</a>