Select Code to Download

print substr($var, 0, index($var, ':'));

my $p=0; print substr( $var, ($p=index($var, ':', $p+1 ))-3,3),$/ whil
+e $p > -1