$ perl -le 'print(0 . $_ | 1 . 1) for qw/0 2 4 6 8/' 11 13 15 17 19