1  
   2  sub left_subject{
   3  	my $self=shift;
   4  	my $count=shift;
   5  	use utf8;
   6  	my $topic=$self->subject;
   7  	utf8::decode($topic);
   8  	utf8::upgrade($topic);
   9  	my ($subtopic)=($topic=~/(.{0,$count})/);
  10  #	utf8::decode($subtopic);
  11  	$subtopic=~s/\b\w{1,5}$//;
  12  	utf8::downgrade($subtopic);
  13  	return $subtopic.'...';
  14  }