$is_blessed = $x =~ /=/;       # ASSERTED: ref($x)

It would seem to me that isn't such a good idea since it would be very easy to get a false positive regardless of the perl version...

  my $x = 'This code = boring';
  $is_blessed = $x =~ /=/;
  print "Wrong" if $is_blessed;
[download]