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