Select Code to Download

name    Brian
shirt  yellow
...
device cell   2009
tag   yes
tag    1

 my @file = `cat text.txt`;
 foreach my $line (@file)
...
}