$variable =~ s/foo/bar/;
say $variable;