$str = fraction($str)       if ($str =~ /\d+_\d+/)