Humm, you are making 2 things wrong!

Take a look in this code:

package foo ;

my $bless = bless({},foo);
print "AS STRING: $bless\n" ;

print "AS REF: ". ref($bless) ."\n" ;

__END__
## OUTPUT:
AS STRING: foo=HASH(0x1a7f04c)
AS REF: foo
[download]

ref just return in what package the object is blessed or the data type of the reference. If you want to know if the blessed reference is an ARRAY, HASH, SCALAR... you can use:

  if ( UNIVERSAL::isa($bless , 'HASH') ) {
    print "mohhh\n" ;
  }
[download]

And forget the REGEXP for that!