use strict;
use warnings;

my @opts = qw(K1 ASC GEB N1);
my $alts = join '|', @opts;
my $re = qr{^(?:$alts)_(\w*\d*)$};

print "Matched $1\n" if 'GEB_S1' =~ $re;