Как сопоставить слово, окруженное пробелами ИЛИ в конце / начале строки, используя регулярное выражение Perl?

Я хочу найти последовательности, соответствующие моему регулярному выражению, если они находятся в середине строки, окруженные пробелами, в конце или в начале или являются единственной вещью в строке.

Пример: Позволять'Предположим последовательность'qwe45rty' это то, что мы ищем. Я хочу быть в состоянии получить позитив на все эти строки:

'qwe45rty' 'qwe45rty blabla' 'smth qwe45rty blabla' 'smth qwe45rty' ' qwe45rty '

Но ни один из них:

'aaqwe45rty' 'qwe45rtybb' 'aaqwe45rtybb'

Лучшее, что я придумал, это что-то вроде этого:

if ( ($a =~ /\s+$re\s+/) or
     ($a =~ /^$re\s+/)   or
     ($a =~ /\s+$re$/)   or
     ($a =~ /^$re$/)        )
{
    # do stuff
}

которые могут'это лучший способ сделать это :)

Какие-либо предложения?

Ответы на вопрос(3)

Ваш ответ на вопрос