Ok I realise this isn't poetic at all but as I'm just about to get ready for another night shift at work I feel it sums things up quite well.

my $nights = @work and not sleep;
while (@work) {
print ":(\n" until $home-time;
}
[download]