Select Code to Download

#!/usr/bin/perl

use strict;
...

my $yaml = LoadFile( 'test-re.yaml' );
print Dumper($yaml->{patterns}), "\n";

--- 
patterns: 
  - !!perl/regexp (?^i:^foo.*bar.*baz)
  - !!perl/regexp ^quux$

$VAR1 = [
          qr/(?^:(?^i:^foo.*bar.*baz))/,
          qr/(?^:^quux$)/
        ];

$VAR1 = [
          qr/(?^ui:^foo.*bar.*baz)/,
          qr/(?^u:^quux$)/
        ];