Help for this page
$count{$_}++ for $string =~ /../g;
while( @strings ) { my( $x, $y )= splice @strings, 0, 2; ... } print join " ", %count, $/; }
www.com | www.net | www.org
No recent polls found