Select Code to Download

while ($line = <INPUT>) {   # or where ever you get your input from
  @temp = split()/,+/, $line);
...
      # then do whatever you want
  }
}

while ($line = <INPUT>) {   
  /([e\d+.]+),[the same],[the same],([the same]),([the same]),([the sa
+me])/;
...
    # do your ting
  }
}