join '',
map { if( m/^\d+$/ ){
        pack'c',$_    # if map encounters a number, convert it to chr
      }
      else{
        $_            # otherwise, don't chr it.
      }
    }
( 121, 47, $A, 47, $B, 47 )