use Error qw(:try);
my @readregex;
#ここでreadregexに読み込み
for my $regextest (@readregex) {

　try {
　　$regextest
　}
　catch Error with {
　　my $e = shift;
　　warn "Error: " . $e->text;
　};
};