Select Code to Download

#!/usr/bin/perl -l

...
  my ($self, $item) = @_;
  @$self ? $self->[-1] =~ /^\Q$item\E\z/i : 0;
  }

1
1
...

1
1