#!/usr/bin/perl

use strict;
use warnings;
use YAML::Syck qw(LoadFile);
use Data::Dumper;

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

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

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

##</code><code>##

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