perl Text-CharWidth