Help for this page

Select Code to Download

Select or download this
```
((A|N)+|((A|N)*(NP)?)(A|N)*)N
```

Select or download this

my @can = ('NNAN', 'BPPAN','ANPN', 'NNAPN');        
foreach $value (@can) {
    if ( $value =~ m/^((A|N)+|((A|N)*(NP)?)(A|N)*)N/ ) { print "match:
+ $value\n"; }
}