#!/usr/bin/perl -w

use CGI qw/:standard/;

print header();

my $text = join '', (<db/profil0001.txt>);
my @vorkommen = ( $text =~ /=VALUE"([^"]*)"/g);

print "@vorkommen";
__DATA__

was ist falsch, er gibt gar nix aus ! ich kapier es nicht (heul)