Select Code to Download

#!/usr/bin/perl
...

my $m = 'foo' =~ $gr
    or die 'no match';

AH $VAR1 = [
          bless( {}, 'Foo' ),
...
          }
        ];
Segmentation fault

Foo->new(
          {
...
            '!' => '-1'
          }
);