Select Code to Download

#! perl
use Modern::Perl;
...

dd @array1;
dd @array2;

21:38 >perl 508_SoPW.pl
(
...
("abcdefgh", "jklmnopq")

21:38 >

map { $_ // "\0" } @array1

map { $_ || "\0" } @array1

map { $_ eq '' ? "\0" : $_ } @array1