#!/usr/local/bin/perl
use strict;
use warnings;
{
  package _;
  use Carp;
  sub TIESCALAR { bless {}, shift }
  no warnings 'once';
  sub FETCH { croak q(Don't you dare get $_)  }
  sub STORE { croak q(Don't you dare set $_)  }
}
$_ = "dankogai";
tie $_, "_";
my $name = /(dan)/;
print $name;