$value=~s/[AP]M.*$//;