Select Code to Download

$text =~ s<
  (^
...
  )
  //.*
><$1>xgm;