Regex Changes 

• /a - ASCII only for \s, \d and \w
• Non-destructive substitution

my $old = "cat";
my $new = $old =~ s/cat/dog/r;
# $old is "cat" and $new is "dog"