sub foo { if (1) { unIndent(my $content= <<'*END*'); foo bar baz *END* print $content; } } foo(); sub unIndent { my ($indent) = ($_[0] =~ /^([ \t]+)/); $_[0] =~ s/^$indent//gm; }