Select Code to Download

if ($t =~/^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/)
 { print "Is Good!"; }