Slednoto neshto shte mi dade li kolko puti dumata "neshto" se sreshta v stringa $alabala?

if ( $alabala =~ /neshto/){
$broika = $#@+
}

@matches = ( $alabala =~ m/neshto/xg );

$broika = $#matches + 1;


Enjoy :)

10X
:))