und in perl > 5.9 bzw. mit patch:
$string //= 'default';