cielavenir

Perl Quine

Aug 29th, 2013
169
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.19 KB | None | 0 0
  1. use MIME::Base64;
  2. $dna='dXNlIE1JTUU6OkJhc2U2NDsKJGRuYT0nKic7CiRkZWM9ZGVjb2RlX2Jhc2U2NCgkZG5hKTsKJGRlYz1+cy9cKi8kZG5hLzsKcHJpbnQgJGRlYzs=';
  3. $dec=decode_base64($dna);
  4. $dec=~s/\*/$dna/;
  5. print $dec;
Advertisement
Add Comment
Please, Sign In to add comment