$ perl -le '
> $str = q{abc};
> $str =~ m{(b)(?{print qq{Match $1}}){3}};'
Match b
Match b
Match b
$