Perl, XBase, числовые данные..

perl -e 'my $dbf = CAM::DBF->new("db.dbf");for my $column (0.. $dbf->nfields-1) {print "column $column ".$dbf->fieldname($column)." is ".$dbf->fieldtype($column)."; "} my @fields=$dbf->fetchrow_array(5); print join("|", @fields)."\n";'

В случае с одной базой имеют место быть данные вида:
column 0 Borough is C; column 1 Block is N..
BX|2267|55|201|

В случае с другой:
column 0 Borough is C; column 1 Block is C..
BX|��@|7|�|

Что бы скормить unpack, чтобы привести строку к читаемому виду?