sub get_content { my $n = shift; my $content = qq( blah ); unIndent($content); return $content; } sub unIndent { $_[0] =~ s/^[\n\r]*//; my ($indent) = ($_[0] =~ /^([ \t]+)/); $_[0] =~ s/^$indent//gm; }