Help for this page

Select Code to Download


  1. or download this
    my $str="Study Protocol Number NBXF317N2201"; 
my ($term) = $str =~ /Protocol (?:(?:No\.|Number)? )?([A-Z0-9]{12})/; 
print $term;
  2. or download this
    my $str="Study Protocol Number NBXF317N2201"; 
my ($term) = $str =~ /Protocol (?:(?:No\.?|Number) )?([A-Z0-9]{12})/; 
print $term;
  3. or download this
    use strict;
use warnings;
...
        my ($term) = $str =~ /Protocol (?:No\. |No |Number |)([A-Z0-9]
+{12})/; 
        print "$term\n";
}