$x = "abc";
say 1 while  $x  =~ /c/g;
say 2 while "$x" =~ /c/g;