Select Code to Download

#! perl -slw
use strict;
...
}

term, etc.

my @array = map{ "term$_" } split 'term', do{ local $/; <DATA> };