( $a, $b, $c )           = split /:/, $str;

##</code><code>##

( $a, $b, $c, @options ) = split /:/, $str;