@files = ("one.zip","twotwo.doc","three3.ppt","testfour");
map {$_ =~ /([^.]*)\.?/; push (@onlyNames, $1); push (@onlyExt, $');} @files;

##</code><code>##

/usr/bin/perl
/home/users/d/davido/text.txt
C:\Perl\scripts\mytest.pl

##</code><code>##

/usr/bin/perl
/home/users/d/davido/text
C:\Perl\scripts\mytest

##</code><code>##

C:\Perl\scripts.old\mytest.pl

##</code><code>##

C:\Perl\scripts

##</code><code>##

bigfile.tar.gz

##</code><code>##

bigfile