Help for this page
@files = ("one.zip","twotwo.doc","three3.ppt","testfour"); map {$_ =~ /([^.]*)\.?/; push (@onlyNames, $1); push (@onlyExt, $');} +@files;
/usr/bin/perl /home/users/d/davido/text.txt C:\Perl\scripts\mytest.pl
/usr/bin/perl /home/users/d/davido/text C:\Perl\scripts\mytest
C:\Perl\scripts.old\mytest.pl
C:\Perl\scripts
bigfile.tar.gz
bigfile