Select Code to Download

while (<DATA>) {
  chomp;
...
  next unless @list > 1;
  print "@list\n";
}

ab
aabb
aaabbb
xxyy
xxxyyy

ab aabb aaabbb
xxyy xxxyyy

#!/usr/bin/perl

...
aaabbb
xxyy
xxxyyy