I think this does what you want:

#!/usr/bin/perl  -w

use strict;

my %parms;

$parms{"Login Name+"}="AUSER";
$parms{"Submitted By"}="";
$parms{"Summary"}="test test";

my $str = join ' AND ', map { qq/'$_'="$parms{$_}"/ }
                        grep { $parms{$_} } keys %parms;

print $str;
[download]

Update: Just too slow there :(

--
<http://www.dave.org.uk>

Perl Training in the UK <http://www.iterative-software.com>