#!/usr/bin/perl -w

use strict;
use warnings;

use Regexp::List;
my $l  = Regexp::List->new;
my $re = $l->list2re(qw/localized held located localization translocated targets reaches exported export/);
print "$re\n";

##</code><code>##

(?-xism:(?=[ehlrt])(?:loca(?:liz(?:ed|ation)|ted)|t(?:ranslocated|argets)|export(?:ed)?|held|reaches))