sub splitLineIntoWords {
    my $line = fc shift;
    no warnings "experimental::regex_sets";
    $line =~ /(?[ \w - \d - [_] ])+/g;
}