Fun! This one is meant to be run more than read:

#!/usr/bin/perl                                                       
+                                                         
use strict;
use warnings;

print "Guess the song title:\n";
# `The Long and Winding Road' (The Beatles)                           
+                                                         

my @windr = split /\n/,
"|  |  |                                                              
+                                                         
|     |                                                               
+                                                         
|  \\  \\                                                             
+                                                         
 \\     \\                                                            
+                                                         
  \\  \\  '-_                                                         
+                                                         
   \\   ._  '-_                                                       
+                                                         
    '-_  '    \\                                                      
+                                                         
       '-_  \\  \\                                                    
+                                                         
          \\     \\";

my @windl = map {
    $a = $_;
    $a =~ y(/\\)(\\/);
    scalar reverse $a
    } @windr;

my $long = 10;

for(1..$long){
    print "$_\n" for @windr;
    print "$_\n" for @windl;
}
[download]