Help for this page
#!/usr/bin/perl use warnings; ... print $out; is($out,$expected);
1..1 [ ... A B C XYZ A D LMN A XYZ