print <<'drom"edary',<<"f#f",<<'=pod',<< ''; #comment
    Just another Perl Hacker
    drom"edary
    #foo
    f#f
    #bar
    =pod
    #foo
        #too
            #you

    $_ = "Just another Python# Hacker\n";
    s {Python#}
      [Perl];
    print;

    $_=<<'=pod';
    Just another Perl Hacker
    =pod
    print;

    s[foo#]  #comment
    [bar#];  #comment

    m{  \#[#]   # comment
        \w+:    # comment
        [#]     # comment
        \#      # comment
        \}      # comment
        }x;
    #

    $_ = "Just another Perl Hacker\n";
    {
        print if m\foo\#comment
    }

    $_ = "Just another Perl Hacker # No comment, no comment!
        # Yes, really!
        # I am really a Perl Hacker!
    ";print;

    (1) ? print "foo#\n" : print "bar#\n";  # foobar

    print "\"Goodnight I'm tired!\"
    # No comment here\n"; # but one here
    sleep 1;    # Because tired
    print "Goodbye!\n";

    BEGIN {if ($ARGV [0]) {eval 'sub foo ()  {print}'}
           else           {eval 'sub foo ($) {print}'}
    }
    $_ = "Just another Perl Hacker\n";
    foo /#/;
    1;