my ($first) = /^\s*(\w+)/ or next;
if (index $first, "hello") {
    ... whatever ...
}