Select Code to Download

  Grab this 'test1' (repeat/new)
...
..
..
  Grab this 'test3' (repeat/new)

 
    while ($current_line = <$file_pointer>) {
      if ($current_line =~ /Grab this\s+(.*)/) {
...
}
}