$str = "token01:token02:token03:token04

$str =~ s/:.*$//;