Help for this page

Select Code to Download

Select or download this

# untested
FILE: for (glob '*.txt') {
...
    }
    print if $found;  # $\ eq "\n"
}