perl pattern matching, :any

Hov -det var vist ikke det bedste eksempel, jeg valgte. Hvis det kun er i slutningen, der er et variabelt antal matches, kan man jo bare vende strengen om, og så gøre sådan noget som:

while($reversedstr =~ /(?=(h*a))/g)

(Og så selvfølgelig vende resultatet om igen).
Det jeg mener er nok nærmere, hvis man ønsker at matche noget i stil med /a+h*a+/, så f.eks. strengen "aahhha" matcher "aha","aaha","ahha","aahha".