wenn du nur den teil nach dem doppelpunkt weglassen willst und als negativen fall den leerstring haben willst, dann geht sowas:
print "Anrufe heute " . ($dauer && "Dauer: $dauer min") . "\n";