#! perl -slw
use strict;

my $data = do{ local $/; <DATA> };

$data =~ s[(if.*?{)]{
    ( my $subscope = $1 ) =~ s[\n][]g;
    $subscope;
}smge;

print $data;

__END__
if (@Agent eq 'XX')
{
  @Agent='{XX}'
}

if (
    @Agent
    eq
    'XX'
) {
  @Agent='{XX}'
}

##</code><code>##

C:\test>junk7
if (@Agent eq 'XX'){
  @Agent='{XX}'
}

if (    @Agent    eq    'XX') {
  @Agent='{XX}'
}