:~$ perl -de0

Loading DB routines from perl5db.pl version 1.77
...
  DB<1> say (0 . "$_" | 1 . "1") for qw/0 2 4 6 8/
11
11
15
15
11

  DB<2>