Select Code to Download

my @array = map { qr{$_} } ('^abcd', 'cd[ef]g', 'cat$');

# timtowtdi...
foreach ( qw{ ^abcd cd[ef]g cat$ } ) { push @array, qr{$_} };
...

# or the way I think is most clear and most sane....
@array = ( qr{^abcd}, qr{cd[ef]g}, qr{cat$} );