Select Code to Download

my %vars;
@vars{'d','map','proto','uri1','uri2'} = ($1,$3,$5,$6,$8);

if ($lines=~/(\d+)(\s+)(map|reverse_map)(\s+)(\w+)\:\/\/(.*?)(\s+)(\5)
+\:\/\/(.*?)$/)  
 {      
       $vars{'d'}     = $1; 
...
     }
   }
my $result = $template->fill_in(HASH => \%vars);

my @fields = qw(d map proto uri1 uri2);
if (@vars{@fields} = $line=~m#(\d+)\s+(map|reverse_map)\s+(\w+)://(.*?
+)\s+(\5)://(.*?)$#) {      
      my $result = $template->fill_in(HASH => \%vars);
}