javascript:var x=window.open('http://v3vi.click4assistance.co.uk/c4a.aspx?AccNo=Inter12109&IDENT=US-x&Target=General&Country=Singapore','_blank','menubar=no,location=no,resizable=yes,scrollbars=no,status=no');
"
####
#!/usr/bin/perl
use strict;
use File::Find;
use Tie::File;
my $input="C://data";
my $logfile="C:\log.txt";
find(\&filenames, $input);
sub filenames()
{
if (-f $File::Find::name)
{
my $file=$File::Find::name;
if($file=~m/\/data\//)
{
open(FILE, "$file");
my @filedata=;
close(FILE);
my $datalength = scalar(@filedata);
my $DCRContent="";
for (my $i=0;$i<$datalength; $i++)
{
if($filedata[$i]=~/(.*)(http:\/\/v3vi.click4assistance.co.uk\/c4a.aspx\?AccNo=Inter12109&IDENT=)(.*)(','_blank)(.*)/i)
{
print "$3 \n";
my $orig=$3;
print "$orig \n";
$orig=~ s/US/UK/;
print "The resulting value is : $orig \n";
$filedata[$i] = $1.$2."$orig".$4.$5;
open(FILEOUTS,">>$logfile") or die("Opening file failed");
print FILEOUTS $file."\t"."\n";
close(FILEOUTS);
}
}
open(FILEOUT,">$file") or die("Opening file failed");
print FILEOUT @filedata;
close FILEOUT;
}
}
}