use strict;
use warnings;

my $str='abcdabcdabcdabcdabcdabcd';
write;


format =
^<<<<<<< ~~
$str
.