@fields = qw(map proto uri1 uri2);

##</code><code>##


    if ( @vars{@fields} = $line=~m!(map|reverse_map)\s+(\w+)://(.*?)\s+\2://(.*?)$! )
      {      
 $result = $template->fill_in(HASH => \%vars);
      }

##</code><code>##

{$map} {$proto}://{$uri1} {$proto}://{$uri2}
{$map} {$proto}://{$uri1} {$proto}://{$uri2}
{$map} {$proto}://{$uri1} {$proto}://{$uri2}
{$map} {$proto}://{$uri1} {$proto}://{$uri2}
{$map} {$proto}://{$uri2} {$proto}://{$uri1}
{$map} {$proto}://{$uri2} {$proto}://{$uri1}

##</code><code>##

$map => map 
$proto =>http
$uri1 => www.digitalcity.com 
$uri2 => origin-www.digitalcity.com