$ perl -Mstrict -Mwarnings -E '
    my $str = "Study Protocol (No.|No|Number) NBXF317N2201";
    my ($term) = $str =~ /([A-Z0-9]{12})$/;
    say $term;
'
NBXF317N2201