use Modern::Perl;

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