my (@old_data, @new_data);
open (DATA, '<test\old_data.txt') || die $!;
    while (<DATA>) { push (@old_data, $_) };
close DATA;
foreach (@old_data) {
    my @line = /=(\w+)/g;
    my $family = join(' ', @line);
    push @new_data, $family;
};
foreach (@new_data) { print "$_\n"} # Wie bei renee, nur zum kucken...