如何使用PERL中的正则表达式保留字符串中的特定字符集

Question

我有这个字符串

 $eq= "ew';@#rfhnbgsu.,/><hdjsdedokk";

通过Perl我想从字符串中仅提取字符w，h，n，s和f。

输出应该是这样的

whhfnss

你能帮帮我吗？

Answer 1

say $s =~ /[whnsf]/g;