I would like to restrict the column number to 45 characters. I am using the Text::Wrap:wrap
as below.
$Text::Wrap::columns = 44;
print FOUT wrap('','' ,<FIN>);
It is making all the colums to 44 chars without word breakage. But it is reducing spaces for some of the lines at the begining.
Text before using wrap()
:
EVENTS: KINJHK QDFMED QDFMED
QDFMED KINJHK QDFMED
KINJHK
BUTIONS: 52314 KINJHK KINJHKQDFMED
QDFMED42 KINJHK524 MBCXZ
56.321 ILOLKI 421
TeXt after using wrap()
EVENTS: KINJHK QDFMED QDFMED
QDFMED KINJHK QDFMED
KINJHK
BUTIONS: 52314 KINJHK KINJHKQDFMED
QDFMED42 KINJHK524 MBCXZ
56.321 ILOLKI 421
For example in the EVENTS
section the spaces are reduced before the line QDFMED KINJHK QDFMED
and the below lines. But I want the alignment should not be disturbed after using wrap()
method.
I have tried many ways of using this wrap, but no use. Could any please help me.
Thanks. Vis.