#!/usr/bin/perl -w

@ARGV || die 'il me faut des arguments';

@lettres = grep { lc ge 'a' && lc le 'z' } (split //, @ARGV[0]);

@chiffres = grep { $_ ge '0' && $_ le '9' } (split //, @ARGV[0]);

print "Nombre de lettres : ",scalar(@lettres),"\n";

print "Nombre de chiffres : ",scalar(@chiffres),"\n";