in reply to A rose for that special person

Nice. :) Some cosmetics: perl -le'print map "-\e[1m\e[".eval{++$e==3?31:32}."m$_\e[0m",qw(, ` @)' ____________
Makeshifts last the longest.