Iinteresting...

$ perl -MStorable -le 'print $Storable::VERSION, " ", $^V'
2.25 v5.10.0
$ perl -MStorable -le 'store { x => qr/x/ }, "/tmp/x"; $x = retrieve "
+/tmp/x"; print $x->{x}'
Regexp=SCALAR(0x10082e9f0)
$ perl -MStorable -le 'store { x => qr/x/ }, "/tmp/x"; $x = retrieve "
+/tmp/x"; print qq{!${$x->{x}}!}'
!!
[download]

So the latest Storable *pretends* to store it, but in fact gives you garbage. Cute.