Oops, I was trying to link the text in the example to the CPAN search engine which didn't work and I thought I'd removed all trace of the tags - obviously not. The code example should read:

#!/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" );
[download]