Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'CCHHHCHHCHC';
...
"
'CCHHHCHHCHC'
'CCHHHHHHHHC'

Select or download this

c:\@Work\Perl\monks\flappygoat>perl -wMstrict -le
"my $s = qq{\1\x01\o{001}\cA};
...
 print 'count: ', $s =~ tr/\1//;
"
count: 4