Perl - get first “word” from input string

Question

I am trying to write a Perl program that reads in lines from a text file, and, for each line, extract the first \"word\" from the line, and perform a different action based

Answer 1

($start) = $inputline =~ /\A([^:\s]+)/;

This will match anything except whitespace and : at the beginning of the line.
Or using split:

($start) = split /[:\s]+/, $inputline, 2;