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

my $name = 'Name von Firma1";1234567;"08001234567";"12"';

my $firmenname = substr($name, 0, index($name, ';')-1);
$name = substr($name, index($name, ';')+1, rindex($name, ';'));
my $nr1 = substr($name, 0, index($name, ';'));
$name = substr($name, index($name, ';')+1, rindex($name, ';'));
my $nr2 = substr($name, 1, index($name, ';')-2);
$name = substr($name, index($name, ';')+1, index($name, ';')-1);
my $last = substr($name, 1, index($name, ';'));

print $firmenname . "\n" . $nr1 . "\n" . $nr2 . "\n" . $last . "\n";