Help for this page

Select Code to Download

Select or download this

#!/usr/local/bin/perl5.6.0 -w
use strict;
...
        print qq{$_\n} for ( @{$count_hash{$_}} );
    }
}

Select or download this

:!./test.pl
N(8) -- H(15) .. O(9)
N(8) -- H(15) .. N(8)