warn $_ for "one" =~ /./;
warn $_ for "two" =~ /./g;
warn $_ for scalar "two" =~ /./g;
__END__
1 at - line 1.
t at - line 2.
w at - line 2.
o at - line 2.
1 at - line 3.