use 5.010;
say for grep {length($_)<=25} split /\s*,\s*/, ($string =~ s/^.+?: //r);