>perl -wMstrict -le
"my $count=0;
 my @cp_op = '111 222 333';
 print 'elements in array: ', scalar @cp_op;
 foreach my $line (@cp_op) {
   print qq{'$line'};
   $count ++;
   }
 print qq{$count};
"
elements in array: 1
'111 222 333'
1