Select Code to Download

#!/usr/bin/perl -wl
use strict;
...
   }xe and print for @_;
}
__END__

perl -wle ' s/^(\d+)/("0"x(6-length).$1)/xe and print or
    s/^(\w)/("\x20"x(6-length).$1)/xe and print for @ARGV;' 133 121 10
+ 13 red