#! /usr/bin/perl
my $rw = open(FILE,"localconf.php");
if(not defined($rw)) {
         die "Fehler beim ¨Offnen der Datei: $!\n";
 }
while(defined(my $zeile = <FILE>)) {
        # $zeile = qq~$TYPO3_CONF_VARS['EXT']['extList'] = 'css_styled_content,tsconfig_help,context_help'; //~;
         if( $zeile =~ /\$TYPO3_CONF_VARS\['EXT'\]\['extList'\]/ ) {
                 print "Wörter, noch nicht separiert: $zeile\n";
          my @array = split(/'/, $zeile);
          my @brray = split(/,/, $array[5]);
        foreach $chunk (@brray) {
                        print("-$chunk\n");
                }
  }else{
         print "kein match\n";
  }

}

close(FILE);