With a lack coffee (ironically enough), this is the best coffee mug graphic I can muster at the moment. So I figured the least I could do was refill it. Unfortunantly the '~' only gets me half-full. And yes, dependent upon my mood, my coffee mug and beer mug look the same :)

I like the aesthetic zenness of this:

s/c[_]/c[~]/;
[download]

But this one actually works:

$_='c[_]';
s/\Qc[_]\E/c[~]/;
print $_,$/;
[download]

-jbWare