use strict;
use warnings;

my $s = 'text mit $-zeichen';
$s =~ s/\$/#/g;
print $s;