Select Code to Download

use strict;
use warnings;
...
foreach (keys %test) {
   print("key $_: ", ref($_) || 'Not Regexp', "\n");
}

re:               Regexp
s:                Not Regexp
key (?-xism:foo): Not Regexp
key foo:          Not Regexp