...
while (<IN>){
$j=0;
chomp;                      #Newline entfernen
if ($_ eq "\$\$\$\$"){
...