Select Code to Download

#!/usr/bin/perl -w
use 5.018;
use strict;
...
        say "\n\t The data, $data, does NOT MATCH\n";
    }
}

C:perl -MYAPE::Regex::Explain -e " print YAPE::Regex::Explain->new(qr/
+(^.* #[A-Z]*\d+.*$)/)->explain();"
The regular expression:

...


         The data, F1234 SIMULATION, does NOT MATCH

$data matches regex

TRAY HINGED PLSTC 20 CAV #F32473
...


         The data, F1234 SIMULATION, does NOT MATCH