#!/usr/bin/perl

use strict;
use warnings;
use Text::Wrap;

my $data;
{
  local $/;
  $data = <DATA>;
}

$Text::Wrap::columns = 60;

print "Before:\n";
print $data;
print "\n";

print "After:\n";
print wrap("", "", $data);
print "\n";

__DATA__
This is a block of text that will precede the URL that is being presented

THE URL    http://xxx.yyy.com/admin/more_grassroots/bigalerts/thefederalgovernment/oy_veit/email/the_email_template.html

This is the concluding block of text that will appear AFTER the URL.

If this block is NOT at the bottom of the email, then we need to fix the wrapping algorithm!

##</code><code>##

...
After:
This is a block of text that will precede the URL that is
being presented

THE URL
http://xxx.yyy.com/admin/more_grassroots/bigalerts/thefeder
algovernment/oy_veit/email/the_email_template.html

This is the concluding block of text that will appear AFTER
the URL.

If this block is NOT at the bottom of the email, then we
need to fix the wrapping algorithm!