If you just want column width, then I'd use Text::CharWidth.

#!/usr/bin/perl

use strict;
use warnings;
use Text::CharWidth qw(mbswidth);

my $string = 'Number of columns?';
print mbswidth($string), "\n";
[download]