if ( $abbr =~ s/([123][sdp])// ) {
            push(@abbr, $1);
            $abbr =~ s/\s//g;
         };