Select Code to Download

use strict;
use warnings;
...

  print Dumper(\@something);
}

re = ((a*)(b*)(c))*
$substring = aacbbbcac = test.pl
...
  undef,
  "c"
]