#!/usr/bin/perl -w

open (IN,"nutsraw.txt" ) || die "Cannot open digscript.ahk\n";
open (OUT,">nutsout.txt" ) || die "cannot open outfile.txt\n";

foreach ( <IN> )
{
    $string = $_;
    $string =~ s/,/\n/g;
    print OUT $string;
}