06: my $basepath='./test/';
07: my $regexp_file=qr'(?<=^Stichwort)\w{4}(?=\.html$)';
08: my $regexp_search=qr'www id: (\d+)';