my ($test, $foo, $bar, $num, $A, $B) = split /:/, $_;
print $foo