Select Code to Download

#!/usr/bin/perl
use strict;
...
Input not an float...try again
enter a float (decimal required): 3.12345
3.12345 Ok!!

$float =~ s/^\s*|\s*$//g; #delete leading/trailing spaces
return $float;

$float +=0;  #causes creation of numeric value for $float!
return $float;

#!/usr/bin/perl
use strict;
...
@colors = grep{!$drop{$_}}@colors;

print "@colors \n";  #red green blue yellow purple

#!/usr/bin/perl
use strict;
...
@colors = @result;

print "@colors \n";  #red green blue yellow purple