lunghezza variabile e controllo valore numerico

[Mich_]

1.
length($descrizione)
http://www.perldoc.com/perl5.6.1/pod/func/length.html

2.
$costo ~= /^[\d_]+$/;

oppure:
$costo ~= /^[^a-zA-Z]+$/;
http://www.perldoc.com/perl5.6.1/pod/perlre.html