Select Code to Download

#!/usr/bin/perl -w
use strict;
...
string1
string7
string2

%strings = (
             'string3' => 1,
...
             'string1' => 3,
             'string2' => 2
           );