---
 ttytter-0.8.1.pl |    3 +++
 1 file changed, 3 insertions(+)

Index: b/ttytter-0.8.1.pl
===================================================================
--- a/ttytter-0.8.1.pl
+++ b/ttytter-0.8.1.pl
@@ -136,6 +136,7 @@ $null = undef;
 sub null { return undef; }
 
 # ANSI sequences
+# Is there a reason not to use Term::ANSIColor?
 $ESC = pack("C", 27);
 $BEL = pack("C", 7);
 $BLUE = ($ansi) ? "${ESC}[34;1m" : '';
@@ -145,6 +146,7 @@ $YELLOW = ($ansi) ? "${ESC}[33m" : '';
 $MAGENTA = ($ansi) ? "${ESC}[35m" : '';
 $CYAN = ($ansi) ? "${ESC}[36m" : '';
 $EM = ($ansi) ? "${ESC}[1;3m" : '';
+$UNDER = ($ansi) ? "${ESC}[4m" : '';
 $OFF = ($ansi) ? "${ESC}[0m" : '';
 
 # default exposed methods
@@ -189,6 +191,7 @@ sub standardtweet {
 	}
 
 	my $UNDO="$OFF$normal";
+	$tweet =~ s/(^|\s)\@(\w+)/\1\@$UNDER\2$UNDO/g;
 	my $g = "<$EM$sn$UNDO> $tweet";
 
 	# br3nda's modified timestamp patch