Select Code to Download

s{Password=\Q$password\E}{Password=$newpass} if $answer =~ /y/i;

my $sentence = 'The quick brown fox jumped over the lazy dog';
my $substring = 'quick.*?fox';
$sentence =~ s{\Q$substring\E}{big bad wolf};

#!/usr/bin/perl

...
    or die "Cannot untie file '$filename': $!";