$right =~ s/-$//;