Special thanks to sf@opn putting it through a diet.
@r=qw(, ` @);for(@r){++$e;print"\e[0m-\e[1m\e[",eval{$e==3?31:32}."m$_ +"}

Replies are listed 'Best First'.
Re: A rose for that special person
by smitz (Chaplain) on Jul 29, 2002 at 11:53 UTC
    A special person who doesn't run WinXX ;-)

    Smitz
      That's an entirely different kind of "special". ;)

      _____________________________________________________
      Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
      s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

        Your mean, Im telling Bill.
Re: A rose for that special person
by Aristotle (Chancellor) on Jul 29, 2002 at 21:31 UTC
    Nice. :) Some cosmetics: perl -le'print map "-\e[1m\e[".eval{++$e==3?31:32}."m$_\e[0m",qw(, ` @)' ____________
    Makeshifts last the longest.