use strict;
use warnings;

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

my %hash = map {split /:\s*/, $_, 2} map {split "\n"} $data;

print "Task Name = ", $hash{TaskName}, "\n";
print "Status = ", $hash{Status}, "\n";
print "Last Result = ", $hash{"Last Result"}, "\n";

__DATA__
HostName:                             LAP3220889
TaskName:                             infiniteloop
Next Run Time:                        Never
Status:
Last Run Time:                        21:45:18, 22/06/2011
Last Result:                           0