if (/dateiname_parameter\s*=\s*(.*)/) {
     return $1;
     }

dateiname_parameter = /etc/passwd
extra_conf = blubb
func = Foo()

use strict;
use warnings;

sub parametersuchen {
  my $datei_name = shift;   # Dateiname
  my $gesuchtes = shift;    # zu suchender Parameter

  my $fh;                   # Dateihandle für Datei
  open ($fh,'<',$datei_name ) or die "Error $datei_name: $!"; # Datei öffnen
  while (my $zeile = <$fh>) {
    chomp $zeile;             # Zeilenende von Parameterzeile entfernen
    my (@parms) = split /\s*=\s*/,$zeile;  # Zeile auftrennen am =
    if ($parms[0] eq $gesuchtes) {  # ist es gesuchtes?
      return $parms[1];             # dann gib's zurück an Aufrufer
    }
  }
  return undef;                     # nichts gefunden
}

print parametersuchen('config.dat', 'dateiname_parameter'), "\n";
print parametersuchen('config.dat', 'func'), "\n";