foreach (@$row) {
  tr{ \t\n\xA0}{ }s;
  s{^\s+}{};
  s{\s+$}{};
}