Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
3aHSAJDHSDHSADHDSALHDASLDHSALDH
3bHGDKJSHDSADHSALDHLHLDHASDLSAH
3cHKJAHCADHALIDHALSDHLSADHALHDA

:!./test.pl
$VAR1 = [
...
            '3cHKJAHCADHALIDHALSDHLSADHALHDA'
          ]
        ];