while ( index($group, "!") > -1 and $index<50000 ) {
$group =~ s/!/\n/;
index++;
}