Help for this page

Select Code to Download

Select or download this

...
# scan second file
...
    print ">$_" if /^([\w\d]+)/ && $names{$1};
    #  add ^
}