Ako $mystring sadarja nyakakwa cifra to imame sawpadenie
$mystring = "hi1kak si 3 dobre sum 2 extra e 1";
if ($mystring =~ /\d/)
{
#good

}
else
last;
################################
#dokato ima sawpadenie sas cislo waw zadadeniya string
#proweryawa dali cisloto e rawno na 1 i ako e taka se uwel
#$counter s edenica i t.n.
$mystring = "hi1kak si 3 dobre sum 2 extra e 1";
while (/\d/g) {
if ($_ eq 1) {
$counter++;
}
else {
print "1 not found\n";
}
if (mod ($counter/2) eq 0) {
print "1 se sadarja ceten broj pati\n";
}
}