Select Code to Download

my ($addr,$state,$pc) = $line =~ /([^,]+),([^,]+),([^,]+)/;

open DATA , "<", "path-to-file";
my @pcodes;
...

close DATA;