`#!/usr/bin/perl -w # there can be only one
use strict;
$_='$_={one((
one($")<<1)^one(
$/))}{{one((one($;)
<<($^=(one($/)>>1)>>1)
+1)+one($/)>>1)}{{{one(((
one($;)<<$^+1)+one($/)>>1)-$
^)}{{{one(((one($;)<<$^+1)+one(
$/)>>1)-1)}{one
(one($"))}{{one
((one($;)<<$^)^
(one($")>>1)+1)
}{one((one($;)<
<$^)-$^)}{{one(
((one($;)<<$^)-
$^)+1)}}{one(((
one($;)<<$^+1)+
one($/)>>1)-1)}
{one(($~=$=)<<1
^one($")>>1)}{{
{one((one($;)<<
$^)-one($/)-1)}
{one(((one($;)<
<$^+1)+one($/)>
>1)-$^-1)}{one(
one($"))}}{one(
one($/)<<$^+1)}
{one((one($;)<<
$^)-one($/)-1)}
{one(((one($;)<
<$^+1)+one($/)>
>1)-$^-1)}}}{{{one(((one($;)<<$^)-$^)-$^)}}}{one(
one($"))}}{one(($~=$=)<<1^one($")>>1)}}{{one((one
($;)<<$^)-(one($")>>1)+1)}{one((one($;)<<$^)-(one
($")>>1)+$^+1)}}{{one(($~=$=)<<1^(one($")>>1)+$^+
1)}{one((one($;)<<$^)-one($/)-1)}{one(((one($;)<<
$^+1)+one($/)>>1)-$^-1)}}{one($=^(one($")>>1))';s
;{one;chr;g;y;{ne}}\012\040;.rd.;sd;eval;print;#1
`

Comment onThere can be only one!DownloadCode