#!/bin/perl
use warnings;
use strict;

while(<>){
    my $line=$_;
    chomp $line;
    next unless $line=~/uri/;
    my %from=(
        COLON=>'%3A',
        SLASH=>'%2F',
        SPACE=>'%20',
        );
my %to=(
        COLON=>':',
        SLASH=>'%2F',
        SPACE=>'%20',
        );