Songs in code

%s/You can \([a-z]*\)/I can \1 better/g

$landmine->take($self->$_) for qw( sight speech hearing arms legs soul );
push( @hell, $self );

$self->set('hot','sticky sweet') while /head/../feet/;

you.thank( self == self && (self == self) );

($door->color() eq '#ff0000') && $door->paint( '#000000' );

$ chmod 700 this;

for (id body in everybody)
    body.something.hidden = (body != self && body != self.monkey)

$taxi->setColor('yellow')->increaseSize(1000);

16.times do
    ColouredGirls.say("do")
end

for my $day ( 1..30 ) {
    $location = 'in the hole';
}

grep {/$me/} @corner && grep {/$me/} @spotlight && $religion--;

class City extends RockAndRoll { }

int loneliest_number = 1;

DELETE FROM Users WHERE lname = "Lugosi" AND fname = "Bela";

I would walk\hskip31680000in to here,\\and I would moreover walk\hskip31680000in to here.

select(power_of_love.feel) {
    case 1:
        you.set(sad);
        break;
    case 2:
        you.set(mad);
        break;
}

load($ton) for 1..16;
++$age_in_days;
++$debt;

house.position = street.width / 2;

class Mine {}
class Sweet extends Mine {}

set_year_quality( $_, 'very good' ) for ( 17, 21, 35 );

[yellowBrickRoad release];

jetplane.Add(me);
jetplane.Leave();
me.returnDate = Time.Now + Time.Rand();

sleep(273);

SELECT TOP 1 * FROM tblTrain
WHERE Destination = 'Clarksville'
ORDER BY DepartureTime DESC

Number beast = new Integer(666);

try {
    you.say_about(:society) = you.say_about(tom_sawyer.company);
}
catch(Mist) {}
catch(Myth) {}
catch(Mystery) {}
catch(Drift) {}

$rosie->set_measurements( 42, 39, 56 );
say q{She's got it all.};

$ grep -r "love" ./wrongplace[0-9]+.txt

 GET /satisfaction HTTP/1.1
 
 404 Not Found

for(Leaf leaf:leafs) {
    leaf.setColor(new Color(139,69,19));
}
sky.setColor(Color.GRAY);

substring("the tiger",6,1)