foreach my $line (@filedata) {
    s{(\Qhttp://v3vi.click4assistance.co.uk/c4a.aspx?AccNo=Inter12109&IDENT=\E)US/${1}UK/g;
}