use strict; my %parms; $parms{"Login Name+"} = "AUSER"; $parms{"Submitted By"} = ""; $parms{"Summary"} = "test test"; print join ( ' AND ', grep { $_ !~ /""$/ } map {"'$_'=\"$parms{$_}\""} keys(%parms) );