Select Code to Download

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

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

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