$a = "foo";

if ( $condition  {
  $a =~ s/foo/bar/;
}

print $a;