use warnings;
use strict;

while(<DATA>) {
  chomp (my $line = $_);
  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