local $/="\n"; my @group = map {[//g]} ; print "New Group: @$_\n" for @group; __END__