$ perl -Mstrict -Mwarnings -E '$_ = "empty"; s/empty/coffee/mug; say'
coffee