perl -E ' my $content = q{ Whatever

Heading

}; say "Full:"; say $content; my $contents = $content; $contents =~ s/^[^ Whatever

With your s///: Whatever

Shortened: