if ($str =~ /\d+_\d+/) {
   $str = fraction($str)
} elsif ( condition 2 ) {
   action 2
} else {
   default
}