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);