#!/usr/bin/perl

use strict;
use warnings;

my %ersetzungen = (
    hans => 'Hallo',
    test => 'Welt',
);

my $datei = 'Ein Test: $hans $test.';
my @platzhalter = $datei =~ s/(?<=\$)(.+?)(?![A-Za-z0-9])/$ersetzungen{$1}/g;
print $datei;