$ perl eyedrops.pl hoge.pl
1 shapes completed.
;$:='.'^'~'
;$~='@'|'('
;$^=')'^'['
;$/='`'|'.'
; (
( (
( (
($,))))))
='('^'}';$\
='`'|'!';$:
=')'^'}';$~
='*'|'`';$^
='+'^"\_";$/=
'&'|('@');$,=
'['&'~';$\=','^
'|';$:='.'^'~';
$~='@'|'(';$^=')'
^'[';$/='`'|'.';$,=
'('^'}';$\='`'|'!';$:
=')'^'}';$~='*'|'`';$^=
'+'^'_';$/='&'|'@';$,='['
&'~';$\=','^'|';$:='.'^'~';
$~='@'|'(';$^=')'^('[');$/=
'`'|'.';$,='('^'}';$\="`"|
'!';$:=')'^'}';$~='*'|"`";
$^='+'^'_';$/='&'|('@');$,=
'['&'~';$\=','^'|';$:="\."^
'~';$~='@'|'(';$^=')'^"\[";
$/='`'|'.';$,='('^('}');$\=
'`'|'!';$:=')'^'}';$~="\*"|
'`';$^='+'^'_';$/='&'|"\@";
$,='['&'~';$\=','^('|');$:=
'.'^'~';$~='@'|'(';$^="\)"^
'[';$/='`'|'.';$,='('^"\}";
$\='`'|'!';$:=')'^('}');$~=
'*'|'`';$^='+'^'_';$/="\&"|
'@';$,='['&'~';$\=','^"\|";
$:='.'^'~';$~='@'|('(');$^=
')'^'[';$/='`'|'.';$,="\("^
'}';$\='`'|'!';$:=')'^"\}";
$~='*'|'`';$^='+'^('_');$/=
'&'|'@';$,='['&'~';$\="\,"^
'|';$:='.'^'~';$~='@'|"\(";
$^=')'^'[';$/='`'|('.');$,=
'('^'}';$\='`'|'!';$:="\)"^
'}';$~='*'|'`';$^='+'^"\_";
$/='&'|'@';$,='['&('~');$\=
','^'|';$:='.'^'~';$~="\@"|
'(';$^=')'^'[';$/='`'|"\.";
$,='('^'}';$\='`'|('!');$:=
')'^'}';$~='*'|'`';$^="\+"^
'_';$/='&'|'@';$,='['&"\~";