Help for this page

Select Code to Download

Select or download this


my @DELIMS = (qw( _ @ ));
...
    push @result, ( split /[@DELIM]/, $elem )[0];
}