Select Code to Download

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

$name =~ s/[\s\xA0]x[\s\xA0]\d+//;