my <at> rows = split /\n/, $_; my $x = pop <at> rows; is(scalar( <at> $result), $n_courses, "test $.: one room per course"); [download]
In reply to New functions? by Anonymous Monk