print FILE format_text(length => 10,string => \$string);

########################
## format_text
########################
sub format_text {
        my %args = (@_);

        ${$args{string}} = substr(${$args{string}},0, $args{length});

        return "${$args{string}}" . ' 'x($args{length} -length(${$args{string}}));
}