Skip to content

Instantly share code, notes, and snippets.

@s-aska s-aska/homo.pl
Created Feb 28, 2014

Embed
What would you like to do?
use strict;
use warnings;
my $homo = q/
_ayQm
_swmQQQQQ
samQQQ@T\"3QQW
jQWT?\"^ jQF]W
\"\" <WF ]W
_QP ]W
_Q@` ]W
m@` ]W
jQ' ]W
jQ( ]W
jQ[ ]Q
<WF ]W
_QD ]W
m@` +?
_awwwwwww, mW'
amQQQ8HVHVHWQQQ^
wQQP!\"` -?$Qa
amQ?` 4Qg
jQP' )Qk
jQ[ )Qk
jWF : ]Qc
QF -::- 4Q
jW` :: : :Q[
_QF _ _ $m
jQ` , ; =;;;== ; )Q(
Qf )Q; : :::::: ; WL
_Q[ ]Q` : ;::::: : ]Q
]Q` ]W - =:;::: : =Q[
]Q +Y =::;:= Q[
]Q : : $L
]Q =::= dk
]Q - -` mk
]Q _Q[
jW dW`
]Q ws,, jQ(
+QL =WQQQQm jWF
3Qc -\"??T wWF
4Qw _mQ!
4Qm, _mQD^
\"$Qmwaaas_a_asaawwQQWQc
Q@$WBQQQQQQQWWUVY^ 4Q
Q[ ]Q:----Qm :QL
Q[ )Q; $m 4Q;
Q[ Q[ ]W; -QL
Q[ QL -QL 4Q
Q[ 3m 3m +Qc
Q[ ]Q, ]Q; $m
$k -$Q, -Qf -QL
]Q -Wk $m )k
=Qc -` )Qm
WL \"!
-`
/;
chomp( my $width = `tput cols` );
my $max = int(($width - 56) / 4);
for (1 .. $max) {
$homo =~ s/^/ /mg;
system('clear');
print $homo;
select undef, undef, undef, 0.1;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.