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

use URI();
use CGI();
use URI::QueryParam();

$_ = <<'__STRING__';
<value>javascript:var x=window.open('http://v3vi.click4assistance.co.u
+k/c4a.aspx?AccNo=Inter12109&amp;IDENT=US-x&amp;Target=General&amp;Cou
+ntry=Singapore','_blank','menubar=no,location=no,resizable=yes,scroll
+bars=no,status=no');</value></item>
__STRING__

print "$_\n";

if( /^(.*?window.open\(')([^']+)('.*)/mg ){
    my( $pre, $uri, $post ) = ( $1, $2, $3 );
    $uri = URI->new( CGI->unescapeHTML( $uri) );
    $uri->query_param(IDENT => 'UK-x');
    $uri->query_param(Country => 'Cheddar');
    print $pre, CGI->escapeHTML($uri),$post,"\n";
}
__END__

<value>javascript:var x=window.open('http://v3vi.click4assistance.co.u
+k/c4a.aspx?AccNo=Inter12109&amp;IDENT=US-x&amp;Target=General&amp;Cou
+ntry=Singapore','_blank','menubar=no,location=no,resizable=yes,scroll
+bars=no,status=no');</value></item>

<value>javascript:var x=window.open('http://v3vi.click4assistance.co.u
+k/c4a.aspx?AccNo=Inter12109&amp;IDENT=UK-x&amp;Target=General&amp;Cou
+ntry=Cheddar','_blank','menubar=no,location=no,resizable=yes,scrollba
+rs=no,status=no');</value></item>
[download]