Select Code to Download

#!/usr/bin/env perl

...
$cmp_foo_bar = cmp_str $foo.$bar, sub { return 'A'; };
say "\nBoth strings against infinite A's";
say pp $cmp_char while defined ($cmp_char = $cmp_foo_bar->());

Null case: both strings empty
...
[9, 1, "f", undef]
[10, 1, "e", undef]
[11, 1, "c", undef]