k-mx


Fri Mar 9 19:01:58 2018
perl

021
instead of
21
#!/usr/bin/perl -pl
$_=+reverse
Fri Mar 9 18:44:09 2018
perl
#!/usr/bin/perl -p
$_=/q/?"asdf
qwer":"1
4";last}{
Fri Mar 9 12:29:14 2018
perl
#!/usr/bin/perl -p0
$z.='
'while s/^.(?{$z.=$&})//gm;$_=$z
#!/usr/bin/perl -p
$_.=<>;s/(.*)
\1/$1/g


              
instead of
30
print`$^X -pMutf8 -CEy/三四五六七八九十/3-90/;s/0\\B//`
#!/usr/bin/perl -p
$_.=<>;s/(.*)\n\1/$1/g
#!/usr/bin/perl -p
$_.=<>; s/(.*)\n\1/$1/g
Tue Feb 27 20:15:41 2018
perl
#!/usr/bin/perl -p
s/\w/$z+=ord(lc$&)-96/eg;$_=$z
Tue Feb 27 20:13:59 2018
perl

34
instead of
98
#!/usr/bin/perl -p
s/./$z+=ord(lc$&)-96/eg;$_=$z

197
instead of
187
#!/usr/bin/perl -p
$_=oct'0b'.s/97/87/r
Tue Feb 27 10:37:50 2018
perl
#!/usr/bin/perl -p
$_=oct"0b$_";s/97/87/

197
instead of
187
#!/usr/bin/perl -p
$_=oct"0b".($_^187?$_:197)
Wed Feb 21 00:55:27 2018
perl


              
instead of
hacked
#!/usr/bin/perl -s -- -xyz=500
print $xyz
Wed Feb 21 00:54:47 2018
perl


              
instead of
hacked
#!/usr/bin/perl -s -- -xyz=500
$xyz
$a=<>;chomp$a;print{199,200,20,-42,32,1080,57,10,499,564,25,1,78,6084}->{$a}

20060846084
instead of
200
#!/usr/bin/perl -ap
$_={199,200,20,-42,32,1080,57,10,499,564,25,1}->{$F[0]}||6084

608460846084
instead of
6084
#!/usr/bin/perl -a
print{199,200,20,-42,32,1080,57,10,499,564,25,1,78,6084}->{$F[0]}

608460846084
instead of
6084
#!/usr/bin/perl -ap
$_={199,200,20,-42,32,1080,57,10,499,564,25,1,78,6084}->{$F[0]}

197
instead of
187
#!/usr/bin/perl -p
$_=oct"0b$_"

197
instead of
187
#!/usr/bin/perl -p
$_=eval"0b$_"