Select Code to Download

c:\@Work\Perl>perl -wMstrict -le
"my @array = qw(PAT  PATxPATxPAT  PATxPATxPATxPATxPAT  xxxxx);
...
 print qq{\$acc: $acc   \@array: (@array)};
"
$acc: 4   @array: (REP REPxREPxREP REPxREPxREPxREPxREP xxxxx)