use strict;
my $string="camel_camel_camel";
print join "\n",($string =~ /camel/g);
__END__
camel
camel
camel