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