Select Code to Download

Select or download this

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

Select or download this

$str = fraction($str);
...
...
   }
   return $str;
}

Select or download this

if ($str =~ /\d+_\d+/) {
   $str = fraction($str)
...
} else {
   default
}

Select or download this

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

Select or download this
```
convert_ratio_to_decimal( \$str );
```

Select or download this

sub convert_ratio_to_decimal (\$) { ..... };

convert_ratio_to_decimal( $str );

Select or download this
```
$obj->convert_ration_to_decimal();
```

Select or download this

$error->logBadDateError( $str ) if (ErrorTracking::invalidDate( $str )
+)

Select or download this

$varName = qr(regex goes here);
if ( $str =~ /$UnderscoredNumber/ ) ...       # poor
if ( $str =~ /$SimpleRatio/ ) ...             # good
if ( $str =~ /$Ratio::simpleFraction/ ) ...   # better