#!/usr/local/bin perl5.14.2                                                     
use warnings;
use strict;
use File::Basename;

my @extens = qw(.zip .dmg .tar.gz .pl .pl~ .cgi .mp3 .txt);
my @ppal;
my $i = 0;

foreach my $arch (@ARGV ){
    my ($name,$path,$suffix) = fileparse($arch,@extens);
    $ppal[$i] =	[];
    push @{$ppal[$i]},($path,$name,$suffix);
    $i++;
}

foreach	my $elem (@ppal){

    print "Path:\t@{$elem}[0]\tArchivo:\t@{$elem}[1]\tExtens:\t@{$elem}[2]\n";

}


##</code><code>##


#!/usr/local/bin perl5.14.2                                                     
use File::Basename;
my @sufijos = qw(.dmg .tar.gz .rar .zip);
foreach $arch (@ARGV) {                                                        
    $name = basename( $arch, @sufijos);                     
    print "Nombre: $name\n";                                  
}
 
##</code><code>##

#!/usr/local/bin perl5.14.2                                                     
use File::Basename;

my @sufijos = qw(.dmg .tar.gz .rar .zip);

sub parsear {

    my $input =	shift;
    $name = basename ( $input, @sufijos );

}

print map &parsear($_)."\n" , @ARGV;