$_ = 'I am sample';
while (m/(?<be>am)(?{say pos})/ig) {
say $+{be};
}