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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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