$ham = "spam\tspam\tspam\t\tyam\tclam";;
@jam = split /\t+/, $ham;;

print "@jam";;
spam spam spam yam clam