突然脑洞打开，写了一首Perl式的music，个人感觉良好。。。

代码如下：

#Mtp : music to perl

#author : Perl Hacker
#Date : 2014.12.02
#from : 午夜DJ to IfMeIsDJ
if ($me = $DJ = $Dj = $dJ = $dj = $DJ){
if ($me = $DJ = $Dj = $dJ = $dj = $DJ){
if ($me = $DJ = $Dj = $dJ = $dj = $DJ){
if ($me = $DJ = $Dj = $dJ = $dj = $DJ){
if ($me = $DJ = $Dj = $dJ = $dj = $DJ){
if ($me = $DJ = $Dj = $dJ = $dj = $DJ){
365*$day;not $a_holiday;
if (wear($headset)) {$tonight_party = "MY BIGGEST!"}
$me = midnight($DJ);
sub feel{my $music};
$happytime=not last;
if($me = $DJ ){tell you_love_me;tell you_love_me;tell you_love_me}
if($me = $DJ ){tell you_love_me;tell you_love_me;tell you_love_me}
while ($night_fall) {$we,open Our eyes;}
wear($My_apple);Put_LV_bag(my $left);
$me = midnight($DJ);
sub feel{my $music};
$happytime=not last;
if($me = $DJ ){tell you_love_me;tell you_love_me;tell you_love_me}
if($me = $DJ ){tell you_love_me;tell you_love_me;tell you_love_me}}}}}}}
#Rap Rap Rap Rap
=begin
Hello baby I'm DJ!
This time with me feel my music.
If i'm dj will you love me?
Come on Together go to party!
如果我是一位午夜DJ
你是否愿意把我体会
想要正式的问你一句
你是否会爱上一位DJ
=cut
if($me = $DJ ){...}

if($me = $DJ ){...}

代码执行结果：

>>>

完美运行！！！！