#!perl -l
use Data::Dump::Streamer qw(:util);
for ('(foo)',qr/(foo)/, qr/bar/x,bless qr/baz/i,'ARRAY') {
  print "Got: /$_/";
  print "list   regex() =\t",join "\t/\t",regex $_;
  print "scalar regex() =\t",scalar regex $_;
  print "";
}

__END__
Got: /(foo)/
list   regex() =	
scalar regex() =	

Got: /(?-xism:(foo))/
list   regex() =	(foo)	/	
scalar regex() =	(?-xism:(foo))

Got: /(?x-ism:bar)/
list   regex() =	bar	/	x
scalar regex() =	(?x-ism:bar)

Got: /ARRAY=SCALAR(0x1acf014)/
list   regex() =	baz	/	i
scalar regex() =	(?-xism:baz)