$name =~ s/\sx\s\d+//;  # remove trailing " x 3" (and similar)