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