$_ = "a b  c   d    ";  # 1, 2, 3, 4 spaces
s/\s+$//;

=pod

A = \s+
B = $
X = fail

"a b  c   d    "
  AX
    AAX
       AAAX
           AAAA