10 lines
208 B
Raku
10 lines
208 B
Raku
BEGIN { $/ = "\n"; $\ = "\n"; }
|
|
LINE: while (defined($_ = <ARGV>)) {
|
|
chomp $_;
|
|
our(@F) = split(/,/, $_, 0);
|
|
$" = '.';
|
|
$_ = "@F";
|
|
}
|
|
continue {
|
|
die "-p destination: $!\n" unless print $_;
|
|
}
|