>perl -le"($x,$y)=map 0+$_,  @ARGV; print $x|$y;" 2 8
10

>perl -le"($x,$y)=map ''.$_, @ARGV; print $x|$y;" 2 8
:

##</code><code>##

my @nums = map 0+$_, split /,/;

##</code><code>##

>perl -e"use Devel::Peek; my $x=123; Dump($x);"
SV = IV(0x1826628) at 0x225350
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,IOK,pIOK)           <-- signed int
  IV = 123

>perl -e"use Devel::Peek; my $x='123'; Dump($x);"
SV = PV(0x226154) at 0x225350
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,POK,pPOK)           <-- string
  PV = 0x18227c4 "123"\0
  CUR = 3
  LEN = 4

>perl -e"use Devel::Peek; my $x=123; qq{$x}; Dump($x);"
SV = PVIV(0x22718c) at 0x225358
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,IOK,POK,pIOK,pPOK)  <-- signed int AND string
  IV = 123
  PV = 0x18227cc "123"\0
  CUR = 3
  LEN = 4