use 5.010;
for my $phrase (split /, /, $string =~ s/^.+?: //r) {
    last if length($phrase)>25;
    say $phrase;
}