Select Code to Download

my @split;
foreach (m/(.+?)(?:<SOH>|\^A|\cA)/g) {
...
    last;
}
# do stuff with @split here