my $zeile = qq~$TYPO3_CONF_VARS['EXT']['extList'] = 'css_styled_content,tsconfig_help,context_help'; //~;
if( $zeile =~ m~\$TYPO3_CONF_VARS['EXT']['extList'] = '(.+)'\; //~ ) {
    print "Wörter, noch nicht separiert: $1";
    my @w = split(m/\,/, $1);
}else{
    print "kein match\n";
}