Select Code to Download

$itDetail = '22009^1^52.90' . "\015\012" . 
'22010^1^42.90' . "\015\012" . 
...
    my ($Qt, $_trashit) = split /\^/, $_line, 2;
    print "$Num $Qt $_trashit\n";
}

22009 1 52.90
22010 1 42.90
22011 1 32.90

$itDetail = '22009^1^52.90' . "\015\012" .
'22010^1^42.90' . "\015\012" . 
...
while ($itDetail =~ /(\d+)\^(\d+)\^(\d+\.\d+)\015\012/g) {
    print "$1 $2 $3\n";
}