Select Code to Download

(my($token, $sep), $string) = split /PATTERN/, $string, 2;

my($token, @sep) = split /PATTERN/, $string, 2;
$string = pop @sep;