#!/usr/bin/perl

$| = 1;

use strict;
use warnings;

our $test = 123; 
our $MOPS = 'mOpZ';
my $text = 'Ein $test ist gut! #
Oder $MOPS';
no strict;
$text =~ s/\$([A-Za-z0-9_]+)/'$'.$1/eegm;
print $text;