Help for this page
if($tmp[0] eq ">") { my $nm = substr($line,1); ... chomp $line; $ret{$nm} = $line; }