Select Code to Download

$stra = "52-52.5";
$strb = "25.3-26.5";
...

($str1) = $stre =~ /(-?[.\d]+(?!<-))/;
print $str1, $/;