if ($text =~ s/foo/bar/) {
  ...
} else {
  ...
}