perl ASCII Art
From: Eli the Bearded
Clinton A. Pierce wrote a program a while ago to embed sekret messages
into ascii art. He posted it to comp.lang.perl.misc in early Feb of
this year. A Google search (groups.google.com) should find the thread,
the subject line of the first message was "Apologies to Joyce Kilmer, a
hack for your enjoyment", and had this perl script:
#!/usr/bin/perl -w
'% * % % * % %<>
* % ~ * % % * % * * % * *
* % % * * % * % *<> * % ~ % % % * %
* * * % * % % % % * % % % % % % * % % * %
% * % % ^ * % % % % *[] % % * * % * * % % %
% * % % % % % % * * % * * @ * @ % * % %
% ^ % * % * % * * % % * % <> % % % % * % %() %
% % * * * % % * % % * * % * * * * % * * % % * * *
% * * * % % * % % *[]<> % % % % * % * * * % % *<>
% * * % % % * * % * * * \ * %\ * * * %/ \ # % * *
% % % *\ * /\ * *// % %\ <>\ // % %/ % \// % * %
* * *\ \|| \ \/ / % %// \ \ *\ /<> %// %// % %<>
* % * %\ \ | | ||// % || // \// % // * * * %
%{} % * ----\ \ | / %||// / ---/ / * % % *
% * *\ ____\ \| | / / / /----/ * %
\ ----\ | / // /
\ \ / /'
=~m/(.*)/s;$_=$1;
s![-\\|_/\s]!!g
;%e=('%',0,
'^',132918,
'~'=>18054,
'@'=>19630,
'*' =>0b01,
'#'=>13099,
'[]'=>4278,
'<>'=>2307,
'{}'=>9814,
'()',2076);
for $a(keys
%e){$e{$a}=
sprintf"%b"
, $e{$a};}
$y= qq{(}.join(
'|',map "\Q$_\E"
,keys %e).qq{)};s/$y
/$e{$1}/gex;print pack"B*",$_;
__END__
Source: https://ascii.co.uk/art/perl
About this ASCII Art
This unique ASCII art represents perl and was created using only standard keyboard characters. ASCII art like this demonstrates the creative possibilities of using simple text characters to create visual representations.
How to use this ASCII Art
- Click the "Copy ASCII Art" button to copy the text to your clipboard
- Paste it into emails, messages, documents, or social media
- Download the image version for sharing on platforms that don't support text formatting
- For best results, use a monospaced font when displaying this ASCII art
