Select Code to Download

$float =~ m/
            \A             # beggining of string
...
            )?             # grouping is optional
            \z             # end of string
           /xms;