if ($str =~ /some_re/){
  do something ...
}