for ( grep { $_->prev_sibling_text =~ m<([,.])\s*$> } @foots ) {