$string = sprintf "%s%s%s", $var1, $var2, $var3;

##</code><code>##

 % perl -e'print "found " . 1+2 . " items" . $/'
2 items

##</code><code>##

    join '',
        ...,
        sprintf( "%6.2f", $amount ),
        ...,
    ;

##</code><code>##

    join '',
        $cmp, " '", $count, " ", $unit, "'::interval";

##</code><code>##

    sprintf "%s '%d %s'::interval", ...;