#!/usr/bin/perl
use strict;
use warnings;

my $filename = 'blabla.hve';

my @data;
my $line;
my $fh;

open( $fh, '<:encoding(UTF-8)', $filename )
    or die "Can't open $filename (Error $!)\n";
{
    local $/ = "\x1E";
    while ( my $line = <$fh> ) {
        chomp $line;
        push @data, [ ( split /\x1F/, $line ) ];
    }
}
close($fh) or die "Can't close $filename (Error $!)\n";

$filename .= '.tsv';    # Konvertierte Datei Tabssepariert
open( $fh, '>:encoding(UTF-8)', $filename )
    or die "Can't open $filename (Error $!)\n";
while (@data) {
    $line = shift @data;
    print $fh join( "\t", @$line ), "\n";
}
close($fh) or die "Can't close $filename (Error $!)\n";