no warnings qw( void );

use Devel::Peek qw( Dump );

"a" =~ /(.)/s or die;

0+$1;        # Fetch and numify
Dump($1);
my $x = $1;  # Fetch
Dump($1);

##</code><code>##

...
  FLAGS = (GMG,SMG,POK,pIOK,pNOK,pPOK)
...
  FLAGS = (GMG,SMG,POK,pPOK)
...