use Modern::Perl;

my $dollars= 'I have $10.';
say $dollars;
$dollars =~ s/\$/€/;
say "Now $dollars";


##</code><code>##

I have $10.
Now I have €10.