knoppix@Microknoppix:~$ perl -E '
> open my $inFH, q{<}, \ <<EOD or die $!;
> VECT
> 111
> 222
> 333
> 
> VECT
> 444
> 555
> 666
> 777
> 
> VECT
> 888
> 999
> EOD
> 
> {
>     local $/ = q{};
>     while ( <$inFH> )
>     {
>         print;
>         say q{=} x 20;
>     }
> }'
VECT
111
222
333

====================
VECT
444
555
666
777

====================
VECT
888
999
====================
knoppix@Microknoppix:~$