【perl】join関数とsplit関数〜1バイトずつ切り出したリストを作る→ひっつけてみる〜

#! /usr/bin/perl

use strict;
use warnings;

my $words = 'hello everyone!';
print $words,"\n";
#出力結果 => hello everyone!

#「//」とすると、文字列を1バイトずつ切り出したリストを作る。
my @words = split(//,$words);
print "@words\n";
#出力結果 => h e l l o  e v e r y o n e !

print join(':',@words)."\n";
#出力結果 => h:e:l:l:o: :e:v:e:r:y:o:n:e:!