print pos $h->{s}, "\n" while $h->{s} =~ /a/g;

##</code><code>##

$h->{s} =~ m/^/g;

##</code><code>##

pos($h->{s}) = undef;