my type call split line

1
my($type,@call) = split(/\s+/,$line);