Select Code to Download

while (<>) {
  my @params = split /\s*,\s*/;
...
    # $1 now contains which type you matched, $2 and $3 are the submat
+ches, do what you will with them
  }
}

while (<>) {
  my %params = map {
...
    ($k => [$1,$2])
  } split /\s,\s*/;
}