my $val= return1() || ''; $val .= return2() || ''; # or my $val= join '', return1() || '', return2() || '';