Perl << EOP генерирует отступ перед блоком reCapctha. Как мне от этого избавиться?

Question

У меня есть следующий код в моем файле reCapctha.pm, и он приводит к отступу поля capctha слева.Я дважды проверил html-файлы более 10 раз, и там нет никаких оснований для отступа.Поэтому я предполагаю, что следующий код отвечает только за часть <<EOP.

Я не очень хорошо разбираюсь в perl, может кто-нибудь помочь мне избавиться от этого отступа / пробела?Это действительно непрофессионально для целевой страницы, какой она есть.Заранее спасибо за помощь.

sub get_html
{
my ($self,$pubkey) = @_;
my $html = <<EOP
<script type="text/javascript">
var RecaptchaOptions = {theme: 'red'};
</script>
<script type="text/javascript" src="http://www.google.com/recaptcha/api/challenge?k=$pubkey"> </script>
EOP
;
}

Answer 1

Если у вас есть что-то вроде

my $foo = <<'__EOI__';
   foo
   bar
__EOI__

Вы можете удалить начальные пробелы, используя

$foo =~ s/^\s+//mg;

Вы можете даже объединить зачистку и присваивание.

( my $foo = <<'__EOI__' ) =~ s/^\s+//mg;
   foo
   bar
__EOI__