Select Code to Download

use Data::Dumper;
use Text::Balanced qw/extract_multiple extract_delimited/;
...
  0);

print Dumper(@a);

$VAR1 = '1';
$VAR2 = '|str|';
$VAR3 = 'foo\\';
$VAR4 = '|bar|';
$VAR5 = 'goo|2323';