# Acest exemplu demonstrează exploatarea REGEX-urilor în
# determinarea apartenenței unui șir de caractere la un număr.

print " Introduceti un numar: ";
$nr = <STDIN>;
chomp($nr);

#if ($nr =~ /^[\d]+$/){
if ($nr !~ /\D+/){
    print " Sirul introdus este un numar \n";
}else{
    print " Sirul introdus nu este un numar \n";
}