perl parser - HEREDOC in HEREDOC

use v5.28;

say <<"__END__";
1
${ \ <<"__END__"
fofo
__END__
}
2
__END__

say "==> foo";

__END__

say "==> bar";