Select Code to Download

22009^1^52.90
22010^1^42.90
22011^1^32.90
# Always a empty line at the end...

while($itDetail) {
     (my $_line, $itDetail) = split /\015\012/, $itDetail, 2;
...

    (my $Num, $_line) = split /\^/, $_line, 2;
    my ($Qt, $_trashit) = split /\^/, $_line, 2;
    $_line = ""; # Reset the variable, just for my sake.
    # Do some things....
}

open(FH,">>/some/path/debug.txt") or die "could not open file for writ
+ing: $!";
print FH '$Num = ', $Num, "\n";
close(FH);