while( (my $name,$passwd,$gid,$members) = getgrent() ){
   if ( $name =~ m/^sometext_(\w+)/ ) {
        local($_);
        my $var = sub($name, $1);
        print ($name."\n");
   }
}