# (?<=199\d|200\d|\D)

sub lookbehind {
    my $subregex = shift;  # qr/199\d|200\d|\D/;
    local pos() = pos() - matchlength($subregex);
    return /$subregex/;
}