TMTOWTDI. Here is a format solution:

use strict;
use warnings;

my $str='abcdabcdabcdabcdabcdabcd';
write;


format =
^<<<<<<< ~~
$str
.
[download]