I'm not quite sure if this is obfuscation or poetry, but I looks rather obfuscated, so I put it here.
Don't judge me too hard, this is my first obfuscation ever.
#!/usr/bin/perl -w
*yellow
=sub#marine?
{$what #yellow
=sub#marine?
{q/
rekcahlreprehtonatsuj/}
;$/
=$what
#is this
->("button")
#good for?
;#Ringo,
%whereis=#the
map{p("lease?")
=>$_}reverse(
#Don't
split//,(
join#us!
"",$/));print
$whereis#John, Ringo?
{$_}for sort{$a<=>$b}
#Where are the
keys#,
%whereis}#the
;sub#marine, Ringo???
p{$p++}
#Ok, let's sing:
#We all live in a
yellow("submarine!");