Parsear Archivo de Texto y Extraer Datos Ayuda!

[WaveRebel]

Saludos,
Apreciaria la ayuda de alguno de ustedes.
Estoy tratando de parsear un archivo de texto para obtener unos datos. Aqui esta lo que tengo hasta ahora:

------------------------
Read.pl

#!/usr/bin/perl

#Files
$data_file="store.txt";
$receiver_file="receiver.txt";

#Open for reading
open(DAT, $data_file) || die("Could not open file!");
@raw_data=<DAT>;
close(DAT);


foreach $inventario (@raw_data)
{

($StockNumber,$C,$AAT,$QOH,$QOO,$QTO, $blank)= split(/ /, $inventario);


if ($blank) {
open(DAT,">>$receiver_file") || die("Cannot Open File");
print DAT "This is My number:$StockNumber\nThis is how much i got:$QOH\n";
close(DAT);
}
}
-------------------

Esa porcion lee el Archivo de Texto parciando y creando un array de cada linea y saca las variables asignadas.

Las variables son:
$StockNumber,$C,$AAT,$QOH,$QOO,$QTO, $blank

Ahora esas variables necesitan el valor real y ahora mismo me esta trayendo espacios que no necesito tal vez todo lo que necesito es alguien que me ayude con la funcion de SPLIT o tal vez ahi alguna otra forma de hacerlo.

Aqui les pongo el file de donde leo para sacar los datos.

ORDERING REPORT 04/15/02
Page 1

======================================

Branch: ALL

All Stores Including Warehouse
SELECT: Misc = ESTORE "And"
SORT: Artist


60282820202 CD ABRAZATE/DESCARGA BORICUA 2 2 0 ( )
75866183042 CD ACUNA,ALEX & JUSTO ALMA/TOLU 4 0 ( )
07559794762 CD AFRO-CUBAN ALL STARS/A TODA 52 0 ( )

Si me podrian ayudar con esto se los agradeceria.