Если вы знаете, что в качестве формата я бы использовал регулярное выражение или простое разбиение строки
Примеры в perl:
REGEX:
my @data;
for( <FILE> ) {
next unless /\d/;
/\D*(\d+)\D+(\d+)\D+(\d+)\D*/;
$data[$#data + 1] = ( $1, $2, $3 );
}
STRING OPS:
my @data;
for ( <FILE> ) {
next unless /\d/;
$data[$#data + 1] = split /|/, $_;
}
Или что-то на этот счет.