#!/usr/bin/perl

use warnings;
use strict;

## der entsprechende vorgegebene string
my $string = q~$TYPO3_CONF_VARS['EXT']['extList'] = 'css_styled_content,tsconfig_help,context_help'; // Modified....~;
if( $string =~ /'([^']+)';/ ){ #' Kommentar nur wegen Highlighting-Problemen im Board
    ## teilstrings in je 1 element unterbringen
    my @output = split /,/, $1;
    print $_,"\n" for @output;
}