perl入学式 #3

qw.pl

#!/usr/bin/env perl
#use strict;
#use warnings;

my @array = qw ( 0123 123 XXX);
print "表示："."@array\n";

my $num = join '-' , @array;
print "電話番号的なもの："."$num\n";

my $ex_str = "/usr/bin/env perl";
my @words = split /\//, $ex_str;
print "/区切り："."@words\n";