one space

##</code><code>##

two  spaces

##</code><code>##

sub flutz {
    # ...
    my $blob= <<END;
        ...
END 
    # ...
}

sub flortz {
    # ...
    my $blob= <<END;
        ...
END
}

if( int rand 2 ) {
    flortz();
}

##</code><code>##

Undefined subroutine &main::flortz called at - line 16.

##</code><code>##

blah blah blah at - line 13, near "blah"
  (Might be a runaway multi-line '' string starting on line 4)