my @DELIMS = (qw( _ @ ));
...
... /[@DELIM]/ ...