in reply to *.txt

while (<*.txt>) {
    # Do something with $_
}

[download]

Abigail

In Section Seekers of Perl Wisdom