#!/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; }