my @files=<*.text>;#scans for .txt extensn in the curent dir
local @_=@files;
foreach my $file(<>)

##</code><code>##

local @ARGV = <*.text>;#scans for .txt extensn in the curent dir
while ( my $line = <> )