while (m/\[\[\w+\]\]/) {
    my $oldpos = pos;
    m/\[\[(\w+)\]\]/;
	
    my $expansion = $helper->($1);
    pos = $oldpos;
    s/\[\[$1\]\]/$expansion/;
}