sub unindent
{
    my ( $data, $whitespace ) = @_;
    if ( ! defined $whitespace )
    {
        ( $whitespace ) = $data =~ /^(\s+)/;
    }
    $data =~ s/^$whitespace//mg;
    $data;
}