#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;


my @table;
local $/='#';
while(<DATA>)
{ push(@table,[$1,$2,$3,$4,$5,$6]) if($_=~/^\s*([^,]+?)\s*,\s*([^,]+?)\n([^\s]+(?:\s+\d+)?)\s+(\d+)\s+(.+?)\s+(\(\d+\)\s+\d+)\n/s); }

print Dumper(\@table);

__DATA__
#
Achtnich, Martin Dr.med.
Gustav-Seitz-Str. 4 68163 Mannheim (0621) 24775
Ärzte: Internist Mannheim
1 Bewertungen

* Stadtplan
* Kostenlos anrufen!

jetzt eintragen!
#
Brand Bernhard Dr.med. u., Jakobs Christian Dr.med.
Waldstr. 143 68305 Mannheim (0621) 752034
Ärzte: Internist Mannheim
1 Bewertungen

* Stadtplan
* Kostenlos anrufen!

jetzt eintragen!
#
Dangl, Stefan Dr. med.
Grohbergstr. 9 68309 Mannheim (0621) 736800
Ärzte: Internist Mannheim
1 Bewertungen

* Stadtplan
* Kostenlos anrufen!

jetzt eintragen!