Help for this page

Select Code to Download

Select or download this

while (<F1>){
    s/\A
...
    /$1/x;
    $HASH{$_}++;
}