my @str = ('ABCD', 'ABEF'); my $str = join('-', @str); if ($str =~ /^([A-Z]+)[A-Z]*\-\1[A-Z]*$/) { print "common: '$1'\n"; } else { print "no match\n"; }