在Perl中清理字符串

Question

我正在阅读excel（.xlsx）文件（使用模块Spreadsheet::XLSX）并获取以下值：Iron/ Steel. 

问题：excel文件中的字符Â和不可见（可见）。最右边的字符看起来像一个空格，但是当我尝试不起作用的正则表达式/\s+$/时，它不是。

请帮助我如何清理这个字符串。我只想在我的字符串中那些在普通英语键盘上的字符，即A-Z, 0-9, ~!@#$%^&*()_+=-`,./';[]\|}{:"?><等。

Answer 1

您可以删除所有非ascii字符

$string =~ s/[^[:ascii:]]//g;

Answer 2

当它始终处于同一位置时，我认为substr($string, 0, -3)可以提供帮助！