perl -Mstrict -WE '
say "`$_` " . ( $_ =~ /^white*/ ? "match" : "no match" )
    for ("while", "whine", "white", "whitf", "whit ", "whit!", "whit");
'