nice.

throw in another join and grep:

$string = join ' where ', grep {$_} ($first, join ' and ', grep {$_} (
+ $b, $c ));
[download]

and it can even handle the case where there are no where clauses...

-- I'm a solipsist, and so is everyone else. (think about it)