use Data::Dumper; my $x=bless qr/dedum/,'foo'; print Dumper($x); __END__ $VAR1 = bless( do{\(my $o = undef)}, 'foo' );