$ perl -l
use strict;
use warnings;
my @strings = qw(boy bird FALSE);
@strings = map { qq{"$_"} } grep( !/FALSE/, @strings);
print join (q{,}, @strings);
__END__
"boy","bird"
$