Select Code to Download

#!/usr/bin/env perl
use strict;
...
@want  = qw/catch cat/;

is_deeply \@found, \@want, "Found '@found' in '$str'";