One-liner
Been a while since I perl'ed.
perl -le 'for(0..0xb271a1){++($}||=q|A|)}($;=q;"\x70\x72\x69\x6e\x74\x24\x7d";)=~s;.*;$&;eee'
Been a while since I perl'ed.
perl -le 'for(0..0xb271a1){++($}||=q|A|)}($;=q;"\x70\x72\x69\x6e\x74\x24\x7d";)=~s;.*;$&;eee'
Care to explain this cosmic thing to a average perl newb? :)