Select Code to Download

$data = q`
HTML1
...
  if ( $data =~ /.*<%.*?%>\n?(.*?)$/s ) {
    print "<<< $1 >>>\n" ;
  }

#!/usr/bin/perl

...
  close($sock) ;
  
  print "Report Sent to: $host:$port\n" ;