aginglab Created page with "<p><span style="font-family: Courier New">#/usr/bin/perl -w<br /> use strict;<br /> my ($len,$total)=(0,0);<br /> my @x;<br /> while(&lt;&gt;){<br /> if(/^[\&gt;\@]/){<br /> if($..."