Help for this page

Select Code to Download

Select or download this

sub oha {
    my $s=shift;
...
    $saw{$_} =()= $s =~ /\Q$_/g for keys %saw;
    \%saw;
}