$ perl -le " printf qq{v%vd\n}, join q//, map {chr $_} 1000, 44000, 99000 , 12 "
v1000.44000.99000.12

$ perl -le " printf qq{v%vd\n}, v3.14.16.5 "
v3.14.16.5

$ perl -le " printf qq{v%vd\n}, v1.2.3 "
v1.2.3

$ perl -le " printf qq{v%vd\n}, chr(1).chr(2).chr(3) "
v1.2.3

$ perl -le " print q{v}, join q{.}, ord(chr 1), ord(chr 2), ord(chr 3)  "
v1.2.3

$ perl -MData::Dump -e " dd(join q//, chr 1, chr 2, chr 3 ) "
"\1\2\3"

$ perl -le " printf qq{v%vd\n}, qq{\1\2\3} "
v1.2.3

$ perl -le " printf qq{bits are %0*v8b\n}, q{ }, q{123}; "
bits are 00110001 00110010 00110011

$ perl -le " printf qq{bits are %0*v8b\n}, q{-}, q{123}; "
bits are 00110001-00110010-00110011

$ perl -le " print q{bits are }, join q{-}, unpack q{(B8)*}, q{123} "
bits are 00110001-00110010-00110011