my @fileList = glob "m*.*";
foreach my $file (@fileList) {
  chomp($file);
  if ( $file =~ /.+\.\d{1,}/ ) {  # one or more characters, a '.' followed by one or more digits 
    print STDOUT "<Nombre valido del Archivo> " . $file . "\n";
    my $server    = "xxx.xx.xx.xx";
    my $username  = "xxxxx";
    my $pass      = "xxxxxxxxxx";
    my $ftp;

      print "Connecting to $server..";

# Set up connection
           $ftp = Net::FTP->new( $server, Passive => 1, Debug => 0 ) or die $@;
           print "..authenticating..";

# Log in...
$ftp->login( $username, $pass ) or die $ftp->message;
print "..done!\n";
$ftp->cwd('Envio') or die $ftp->message;
    print $ftp->pwd (), "\n";
    $ftp->ascii();
    $ftp->put("$file") or die $ftp->message;
    print "Logging out..";

#or die $ftp->message;
    $ftp->quit;
    print "..done!\n";

      
  }
  else {
    print STDOUT "<Nombre Invalido del Archivo> " . $file . "\n";

  }
}    
      
      
      
for (@transferFileList) {
	print "$_\n";
        system ("del",$_);
}
    }