Select Code to Download

The regular expression:

(?m-isx:^\s*(\S+)\s+(\S+)\s*$)
...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------

#!/usr/bin/perl -w
use strict;
use Data::Dumper;
...
   $hash{$1} = $2;
}
print Dumper \%hash;