my $parameter = 'NEXTUID';
my ($wert) = $_ =~ m|<.*${parameter}="([^"]+)"[^>]*>|i;