sub get_content {
    my $name = shift;
    my $content;
    ($content = <<"    END") =~ s/^\s{1,4}//gm;
    <p>$name</p>
    <ul>
        <li>foo</li>
        <li>bar</li>
    </ul>
    END
    return $content;
}

print get_content("stuff");