Con le RE, come ti ho spiegato.
Le forme piu` semplici delle RE sono uguali a quelle in JS (anche se la sintassi esterna alla RE e` diversa).

Esempio:
$costo ~= /^([\d_]+)$/
if(length($1)>1) print"costo contiene solo numeri e _\n";