配列内の単一の要素、つまりperlからインデントを削除するにはどうすればよいですか？

Question

@para_text[2] = $mech->xpath('/html/body/form/table/tbody/tr[2]/td[3]/table/tbody/tr[2]/td/table/tbody/tr[1]/td/table/tbody/tr[4]', type => $mech->xpathResult('STRING_TYPE')); 

私はこの形式で次のように返し上記のコードがあります：11：59

2017年3月30：

        Sent: 


            30 March 2017 11:59 

私はそれがこの形式である必要があります。送信

をそれらはインデントであり、空白だけではありません。私はgrep、トリム、および他のフォーラムやスレッドで提案されているさまざまな置換方法を試してみました。

Answer 1

以下の行を使用して、複数行の文字列からすべての空白を切り捨てることができます。私はむしろこれらの行を機能させることを躊躇したいと思う。

@para_text[2] =~ s/[\r\n]//gm; # convert multiline to single line 
@para_text[2] =~ s/\s*$//; # remove trailing whitespaces 
@para_text[2] =~ s/^\s*//; # remove preceding whitespaces 
@para_text[2] =~ s/\s+/ /; # merge tabs