#!/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";