Select Code to Download

#!/usr/bin/perl -wT
use strict;
my %hash_one = ('string_one' => 0,
...
string_four
4 string_four
doesn'tmatchanything

string_four => 4
string_six => 0
...
string_seven => 0
[[[string_three => 3
string_two => 2