Select Code to Download

#!/usr/bin/perl
use warnings;
...
print $out;

is($out,$expected);

1..1
[
...
A    B    C    XYZ
A    D        LMN
A            XYZ