Question 2: Behind the scenes 

use Text::QRCode;

my $arrayref = Text::QRCode->new()->plot("4SEZUZDI");
print join '', map {
    join '', map { tr/ */01/; $_ } @$_
} @$arrayref;