my @DELIMS = (qw( _ @ ));

for my $elem ( @inputs ) {
    push @result, ( split /[@DELIM]/, $elem )[0];
}