#!/usr/bin/perl -p
$_=/./&($'+ord)?light:dark