Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    I don't want this text
    to be unindented.
END

sub unindent
{
...
    $data =~ s/^$whitespace//mg;
    $data;
}