Select Code to Download

while(my $line = <$in>) {
  chomp $line;
...
  ...

}

my ($x, $y) = $sample =~ /(\d+)(.*)/;
$x = '?' unless $x;
$y = '?' unless $y;