Select Code to Download

my @filters = ( \&eliminate_ws, \&do_something, \&do_something_else, \
+&etc );
# ...
...
sub eliminate_ws { s/\s*$// } # always returns true.
# as opposed to:
# sub eliminate_ws { s/\s+$//; 1 } # always returns true, even if s "f
+ailed"

$ perl -e 'printf "%e\n",((1/334000)-(1/1211000))'
2.168248e-06