my $datei = 'Mein Name ist $hans§.';
my @platzhalter = $datei =~ /\$(.+?)[^A-Za-z0-9]/g;
print join ', ', @platzhalter;