Select Code to Download

#!/usr/bin/perl
use strict;
...
    [$part1, $part2];

done_testing();

    (split /(^.{,30}\* )/, $string, 2)[1, 2]