Perl上で strings を呼ばずに同様の処理を行うには、一般的にどうすると良いのでしょうか？