>>793
my $string = "ab^cd^efg^";
my @match;
@match = ($string =~ /(\^)/g);
print @match+0 ,"\n";