fork download 
  1.  
  2. ''=~   ('('    ."\?".    ('{').(   '`'|'%'      ).('['^
  3. '-')   .''.  +(   '`'|   '!'  ).(  '`'  |((    ((   ',')
  4. ))))   .'"' .+(   '['^   '+'  ).(  '['   ^((  ')'   ))).
  5. ('`'   |')'       ).+(   '`'|'.'   ).(  '['         ^'/'
  6. ).('{'^'[')    .'\\'.+   '"'.('`'  ^'(').(       '`'|'!'
  7. ).+(   '`'|  '"') .''.   (((  '[') )^+  ')'    ).+( '`'|
  8. '!')   .''. ('`'  ^'('   ).(   '`' |((   '!'  ))).  ('`'
  9. |'"'   ).+( '['^ ')').   ','   .+( '{'    ^(( '[') )).+(
  10. '`'^   '(') .('`'  |'!'  ).("\["^  '+'    ).( "\["^  '+')
  11.  
  12.  
  13. .''.   ('['    ^'"').    (('{')^   "\[").(        '['^'+'     ).       +(
  14. '['^   ')')  .(   '`'|   '/'  ).(  '`'  |((       "'"  )))     .(      ((
  15. '`')   )|(( '!'   ))).   (((  '['  ))^   ')'      ).(   '`'    |+      ((
  16. '-')   )).(       '`'|   "\-").(   '`'  |((       '%'  )))     .(      ((
  17. '['))^')').    ("'").(   '['^'(')  .("\{"^        "\[").(      ((      ((
  18. '`')   )))|  '$') .''.   (((  '`') )|+  '!'       ).(  '['     ^+      ((
  19. '"')   )).+ '!'.  '\\'   .((   ((( (((   (((      (((   (((    ((      ((
  20. '\\'   )))) )))) )))))   )))   ))) )).    ((( '`' ))|    '.'   ).+   '\\'
  21. .'"'   .';' .'"'.  '}'.  ')');$:=  '.'    ^(( '~' ));    $~=    ('@')|  '('
Success #stdin #stdout 0s 4596KB
comments (?)
stdin 
Standard input is empty
stdout 
HabraHabr, Happy progarmmer's day!
https://ideone.com/cSc8M
language:
Perl (perl 5.28.1)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!