Perl troll face

fu.pl

print (('F' x 1000) . ('U' x 900) . ('!' x 20) . "\n");

generator.pl

#!/usr/bin/perl
use strict;
use warnings 'all';
use utf8;

use Acme::EyeDrops qw(sightly);

#convert -sample 54x24! -colors 2 trollface.png trollface.xpm; tail -n +8 trollface.xpm | tr '. ' ' #' > trollface.pl
my $trollface = <<'TROLLFACE';
           ###################### ########          
       ########################## ### ######        
     #################### ########### ## ####       
    ############# ################### # ######      
    ########  ############   #       ##########     
  ##    #         ######  ##          ## ###        
# # #############  ######  ##### #######       ##   
## #  #   #  #### ################     #### ### ####
## ### ########  ########   ############     ### ###
  ####  #####   #######  ## ########   #### ###  ###
  ###    #######  # ####### ##    ### ###   ##### # 
  ###  #      ########        #####     # #######   
  ###  # ##  ###  #### ###### #       ## #######    
   ##                           ####    #######     
  ###                     #### #####  ########      
  ####   # ##  #  ##### ######  #  #########        
  #####  ## #  ##  #### #####   #### #####          
  ##########              ###### ### ##             
  ###### ################### ### ###                
  #### ##################  #####                    
   #########################                        
    ##################                              
TROLLFACE

print sightly({
    ShapeString     => $trollface,
    SourceFile      => 'fu.pl',
});

trollface.pl

#!/usr/bin/perl
eval eval '"'.


           ('['^'+').('['^"\)").( '`'|')')          
       .('`'|'.').('['^'/').('{'^ '[' ).'('.        
     '('."'".('`'^('&')). "'".(('{')^ (( '[')       
    )).('['^'#'). ('{'^'[').('^'^('`' | '/')).      
    (('^')^(  '`'|"\.")).(   (       '^')^('`'|     
  ((    (         '.')))  ))          .( '^'        
^ ( '`'|'.')).')'  .('{'^  '['). ('.').(       ((   
(( (  (   (  '{') ))))))^'[').'('.     "'". ((( '{')
)^ '.' )."\'".(  '{'^'[')   .('['^'#').(     '{' ^((
  '[')  )).+(   ';'&'='  ). (('^')^(   '`'| '.'  )).
  (((    '^'))^(  ( ('`'))| ((    '.' )))   ).')' . 
  (((  (      "\{")))^        '[').     ( "\.").(   
  '{'  ^ ((  '['  ))). ('('). (       (( "'"))).    
   ((                           '!')    )."'".(     
  '{'                     ^'[' ).''.  ('['^'#'      
  ).+(   ( ((  (  '{')) ))^'['  )  .(('^')^(        
  "\`"|  (( (  ((  ',') )))))   ).+( '^'^(          
  '`'|'.')).              "\)".( '{' ^+             
  "\["). '.'.('{'^'[').'\\'. '"' .((                
  '\\' )).'\\'.('`'|'.').  '\\'.                    
   '"'.')'.';'.('!'^'+').'"'                        
    ;$:='.'^'~';$~='@'

trollface.png