...
while (<IN>){
$j=0;
chomp;                      #Newline entfernen
if ( m{^\$\$\$\$} ){
...