Select Code to Download

multi_like \@array, [
    qr/regex1/,
    qr/regex2/,
    ....
], "Test name";

subtest "All lines are like expected" => sub {
    like $array[0], qr/regex1/;
...
    ....
    is scalar @array, $nnn, "No extra lines";
};