k-mx


Fri Feb 1 22:04:50 2019
perl
#!/usr/bin/perl -p
y "
d
Fri Feb 1 22:03:46 2019
perl


              
instead of
1
23
34
234
y "
d
Fri Feb 1 21:52:24 2019
perl

xxx
instead of
test2
$f=500;$f=~s\dxg;print qq($f\n)
Fri Feb 1 21:50:37 2019
perl

500
instead of
test2
$f=500;$f=~sdxg;print qq($f\n)
Fri Feb 1 21:46:03 2019
perl

x5x0x0x
instead of
test2
$foo = 500; $foo =~ sxg; print qq($foo\n)
Fri Feb 1 21:43:30 2019
perl

Unrecognized character \xBF; marked by <-- HERE after s��xï<-- HERE near column 30 at ./code line 1.

$foo = 500; $foo =~ s��x�g; print qq($foo\n)
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