Select Code to Download

while( $file =~ /\Q$start\E(.*?)\Q$end\E/sg )
{
    $a = $1;
...
    }
    print $match, "\n";
}

blah blah
/* comment 1 */

...
    */ 
    outer 
*/

prompt$ regex.pl '/*' '*/'
/* comment 1 */
/* comment 2 */
...
    */
    outer
*/