Select Code to Download

(undef, my $foo) = split /:/;

$foo = (split/:/)[1];

@data = split/:/; $foo = $data[1];

($foo) = /:(.*?):/;