in reply to regex needed

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