my $x = do{
    print "here's an embedded statement\n";
    42;
};

##</code><code>##

    $x = sin  / 25 ; # /; die "Bang! I'm dead!";
    
    $y = time / 25 ; # /; die "I'm only pretending!";

##</code><code>##

    while(<>){
        if ($. == 1){
            print "Now processing $ARGV ...\n"
        }
        print if /something/ .. /something else/
    } continue {
        close ARGV if eof
    }