I like it. I think the OP didn't want the asterisks themselves printed, so a small addition would clear that up:

    while (<>) {
         print if /^\*+$/ ... /^\*+$/ and not /^\*+$/;
    }
[download]