>>145
解決隅にレスるのもなんだが pos 使えば？
my $str = 'hogefugehagehoge' ;
print +( pos $str ) . "＼n" while $str =~ /(hage)/g ;