Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;
...
P5M6DT
P5M6DT9
P600T6S

Select or download this

P:\test>297188
P didn't match
...
P5M6DT matched
P5M6DT9 didn't match
P600T6S didn't match