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

# スカラー変数（1つの値）
my $name = "たろう";
my $age = 16;
my $pi = 3.14;

print "名前: $name
";
print "年齢: ${age}歳
";

# 配列（@）
my @fruits = ("りんご", "バナナ", "みかん");
print $fruits[0] . "
";  # りんご
foreach my $f (@fruits) {
    print "$f
";
}

# ハッシュ（%）
my %person = (name => "たろう", age => 16);
print $person{name} . "
";  # たろう

# 条件分岐
if ($age >= 18) {
    print "成人
";
} elsif ($age >= 13) {
    print "十代
";
} else {
    print "子供
";
}

# ループ
for my $i (0..4) {
    print "$i
";
}

# 正規表現（Perlの強み）
my $text = "電話番号は090-1234-5678です";
if ($text =~ /(\d{3}-\d{4}-\d{4})/) {
    print "電話番号: $1
";
}