if ($a =~ /\*/) {
  # call some function
}
else {
  # do something else
}