use warnings;
use strict;

while(my $line = <DATA>) {
  my @columns = $line =~ m/\s*(-?[,\d]+)/g;
  print "@columns\n";
}

__DATA__
15,567 -25,324-45,234
 15,567-25,324-45,234 
-13,345 53,562 13,452 
 -7,521-22,454-54,671