@jam = $ham =~ m/\t([^\t]+)\t+([^\t]+)\t+([^\t]+)/;;

print @jam;;
spam spam yam