while(<$FILE>) {
  chomp ($line = $_);
#  @columns = $line =~ m/\s*(-?\d+)/g; 
  @columns = $line =~ m/\s*(-?[\d,]+)/g;
}