#!/usr/bin/perl

use warnings;
use strict;

## der entsprechende vorgegebene string
my $string = "\$TYPO3_CONF_VARS['EXT']['extList'] = 'css_styled_content,tsconfig_help,context_help'; // Modified....";

## das regex was die werte extrahiert
my $pattern = " = \'(.*)\'";

## array wo die werte anschliessend gespeichert werden
my @output;

## regex anwenden
$string =~ /$pattern/;

## teilstrings in je 1 element unterbringen
@output = split(/,/, $1);

## erstes Element 0 ausgeben
print $output[0];