$ perl
my $x = <<.
Use of bare << to mean <<"" is forbidden at - line 1.