#!/usr/bin/perl -w

use strict;
use diagnostics;

use Tie::RegexpHash;

my $rehash = Tie::RegexpHash->new();

$rehash->add( qr/abc/, "abc" );
$rehash->add( qr/def/, "def" );