Maybe the lines are different? :)

When removing whitespaces in for loop, try to change order of commands to following:

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

PS. This would be much easier to read if you used <code> tags around Perl code (Writeup Formatting Tips).