#!/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;