perl -wle 'print 0b010101'
>21