separating string each 2 chars in Perl/Ruby

文字列を2文字ずつ分割する方法。

Perl

$ cat >hoge.pl
$str="testTEST12345678";
foreach $e ($str =~ /(..)/g) { print $e."\n"; }

$ perl hoge.pl
te
st
TE
ST
12
34
56
78

Ruby

irb(main):016:0> "testTEST12345678".scan(/(..)/){|e|puts e}
te
st
TE
ST
12
34
56
78
=> "testTEST12345678"

Perlでの書き方について教えてくださった方、ありがとうございます。