Select Code to Download

#!/usr/bin/perl -w 
use strict;
...
line2
---
line3

$VAR1 = [
          'this',
...
          'line2',
          'line3'
        ];