$ perl -E 'my $x = 5; say $x; my $y = \\\\$x; $$$$$y += 3; say $x'
5
8