Wie ersetze ich in einer Zeichenkette Zeichen?

[$xNeTworKx]

Hi,

wie kann ich in Perl in einer Zeichenkette, zB

Heinz kam Gestern aus $ORT$

den Wert $ORT$ ersetzen?

eine Möglichkeit :

my $string = 'Heinz kam Gestern aus $ORT$';
$string =~ s/$ORT$/neuer Ort/g;

print $string;