Just step through the file until you hit the line with $$$$, then read the next line:

while (<>) {
  next if !/^\${4}/;
  my $next_line = <>;
  # do something
}
[download]

Update: Ignore this...Boris' solution below is probably closer to what you want.

brad