lhp@nereida:~/Lperl/src/testing$ cat -n qx.pl
     1  print (
     2    $c = 'ls -l '.
     3          join(' ', qw{
     4                       context1.pl
     5                       decomposed_char_utf8_2.pl
     6                       file1.txt
     7                       es.log}
     8          )
     9    and qx{$c}
    10  );