@line_as_list = $rtpfile[$ln] =~ /Startpoint: ([^(]+).*?clocked by ([^)]+)\)/;