Help for this page

Select Code to Download

Select or download this

use Text::Wrap qw( wrap );

...
while (<$fh>) {
   print wrap('', '', $_);
}