C:\Perl_5_10\play>..\bin\perl store.pl
$VAR1 = {
          '3_catch any' => qr/(?-xism:.*)/,
          '2_random' => qr/(?-xism:[Rr]andom)/,
          '1_Friday' => qr/(?-xism:Friday)/
        };

C:\Perl_5_10\play>..\bin\perl read.pl
$VAR1 = {
          '3_catch any' => qr/Regexp=SCALAR(0x1a6bca4)/,
          '2_random' => qr/Regexp=SCALAR(0x1a7c90c)/,
          '1_Friday' => qr/Regexp=SCALAR(0x1c47c7c)/
        };