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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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