while (<DATA>) {
	chomp;
	my @fields = unpack('a7 a7 a7');
	print join(" ", map {"\"$_\""} @fields), "\n";
}
__DATA__
 15,567-25,324-45,234 
-13,345 53,562 13,452 
 -7,521-22,454-54,671

##</code><code>##

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