my $str = 'this_is_a_group_of_words';
my @ary = split "_", $str;
print "[$_]\n" for @ary;

my $str = 'this_is_a_group_of_words';
my $pat = '_';
my @ary = split $pat, $str;
print "[$_]\n" for @ary;