Help for this page

Select Code to Download

Select or download this

$ perl -Mstrict -Mwarnings -E '
    while (<>) {
...
'
123dog
Z-match