while(<DATA>) {
     s/\s+$//;  # trim off any \015 chars on EOL
     my ($Num, $Qt, $_trashit) = split /\^/, $_;
     print "$Num || $Qt || $_trashit\n";
     # blah
}
__DATA__
22009^1^52.90
22010^1^42.90
22011^1^32.90