while (<$fh>) {
    my @star_fields = m/\*([^*]*)\*/g;
    # . . . 
}