Hello,
If all you want are the text files in a directory....
how about...
#!/usr/bin/perl
$dir = "/root/dir";
opendir(DIR, $dir) or die "Can't open $dir: $!";
my @files = grep { -T $_ } readdir DIR;
regexes
-------------------------
Nothing in the world can take the place of persistence. Talent will not; nothing is more common than unsuccessful men with talent. Genius will not; unrewarded genius is almost a proverb. Education will not; the world is full of educated derelicts. Persistence and determination are omnipotent. The slogan "press on" has solved and always will solve the problems of the human race.
-- Calvin Coolidge, 30th President of the USA.