my $data = get_some_arbitrary_data();

$data =~ s/^( *)$/ $1/gm;

$eval = "<<'';\n$data\n\n";

$result = eval $eval;
$result =~ s/^ //;

print $result;