Select Code to Download

$ perl -E '$_=qq{GeneName    GeneType};my($foo,$bar)=split(/:/,$_);say
+ qq{foo: $foo\nbar: $bar}'
foo: GeneName    GeneType
...
$ perl -E '$_=qq{GeneName    GeneType};my($foo,$bar)=split(/\s+/,$_);s
+ay qq{foo: $foo\nbar: $bar}'
foo: GeneName
bar: GeneType

$ perl -E '%hash = qw( a b c d ); while( my( $k, $v ) = each %hash ) {
+ say qq{$k => $v}; }'
c => d
a => b