use FileHandle;
    use DBI;
    my $dbh = connect2db();
    my $file = "blubb.txt";
    my $fh = new FileHandle;
    if ($fh->open("< $file")) {
        
        while( $fh->getline() ) {
            my ($feld1, $feld13) = split/\#/, $_);
            my $sql = qq~
                INSERT INTO Tabelle ..... $feld1, $feld13
            ~;
            # statement wie in DBI.pm beschrieben ausführen
        }

        $fh->close();
    }else{
        # fehlermeldung...
    }