my ($before, $after) = split /\$\$/, $line, 2;