Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

...
$var1 =~ s/\[\*\]/\_bit/g;      # <-- changed _bit_ to _bit

say /$var1/ ? 'YES' : 'NO' for keys %data;

Select or download this
```
YES
YES
NO
```