#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

while (<DATA>) {
    chomp;
    my @row = split /;/, $_;
    @row = map { s/"//g; $_ } @row;
    print Dumper \@row;
}

_ _DATA_ _
"Name von Firma1";1234567;"08001234567";"12"
"Name von Firma22";123;"08001234589";""
"Name Firma3";12345;"080012343";"12"