Select Code to Download

>perl -wMstrict -le
"my $s = 'Foo|Fate|||Fate||||Pre|Fate|Post|||||Alive|Alive';
...
 print $s;
"
Foo|Fate|||Fate||||Pre||Post|||||Alive|Alive

>perl -wMstrict -le
"my $s = 'Foo|1ate|||2ate||||Pre|3ate|Post|||||4ate|Alive';
...
 print qq{'$s'};
" 3
'Foo|1ate|||2ate||||Pre||Post|||||4ate|Alive'