#!/usr/bin/perl
# -*- eval: (bug-reference-mode 1) -*-
-print <<"EOF1" . s/he"llo/th'ere/;
+sub add_funds($) {
+ return 0;
+}
+
+use v5.14;
+
+my $str= <<END;
+Hello
+END
+
+my $a = $';
+
+my $b=3;
+
+print $str;
+if ($c && /====/){xyz;}
+
+print "a" . <<EOF . s/he"llo/th'ere/;
+It's a surprise!
+EOF
+
+print <<\EOF1 . s/he"llo/th'ere/;
foo
EOF2
bar
EOF1
+$config = {
+ b =>
+ [
+ "123",
+ ],
+ c => "123",
+};
print <<"EOF1" . <<\EOF2 . s/he"llo/th'ere/;
foo