my @lines = split /\n/, do { local $/; <$fh> };
my $res = [ map [ split /\|/, $_ ], @lines ];
my $exp = [ map [ $cmd, @$_ ], $fail ? $expected[0] : @expected ];
my @lines = split /\n/, do { local $/; <$fh> };
my $res = [ map [ split /\|/, $_ ], @lines ];
my $exp = [ map [ $cmd, @$_ ], $fail ? $expected[0] : @expected ];