foreach $item (@xray)
{
  $item =~ s/\s+/ /g;
  $item =~ s/^ *//g;
  $item =~ s/ *$//g;
}