I see no reason not to use format for this case. eg:

#!/usr/bin/perl -Tw
use strict;
use warnings;

my @foo = (
    "Mapping a drive to build machine 10.211.32.254..\rMapped to V dri
+ve",
    'Deleting TestHarness_LUA directory..',
    'Deleting TestHarness_LUA-distribution.zip file..',
    'Copying TestHarness_LUA-distribution.zip from mapped V drive..'
);

for (@foo) {
my $status = "done.";
format STDOUT =
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ^<<<<<
$_, $status
.
    write while $_;
}
[download]