#!/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;
}