How to remove all markers with characters without words in Perl?

Question

I am trying to find a regular expression to remove all words containing characters other than words.

So, if it contains a colon, comma, number, brackets, etc., then remove it from the string, not just the character, but the word. I still have it.

$wordline = s/\s.*\W.*?\s//g;

It’s not necessary to be perfect, so deleting lines with a dash and an apostrophe is fine.

Answer 1

s/\w*([^\w\s]|\d)+\w* ?//g;

Answer 2

$wordline = join(" ", grep(/^\w+$/, split(/\s+/, $wordline)));

Answer 3

s/(?<!\S)(?![A-Za-z]+(?:\s|$))\S+(?!\S)//g

regex-land "-" - , ([A-Za-z0-9_]). , , \w \w . :

• : \S+

• does not precede: (?<!\S)or follows: (?!\S)characters without spaces

• if all characters are not letters: (?![A-Za-z]+(?:\s|$))

This will leave all the spaces surrounding the words that he will delete. Working with them correctly is a little more complicated than you might expect; this is much easier to do in a separate step, for example:

s/^ +| +(?= |$)//g