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

# Perl入学式 2018 第4回 練習問題
# https://github.com/perl-entrance-org/workshop-2018/blob/master/4th/slide.md
# 練習問題(output_array_and_hash.pl)

# 引数として文字列を受け取り, その文字列に
# perlないしPerlが含まれるなら｢Perl Monger!｣と
# 表示するサブルーチンperl_checkerを書いてみましょう.

my $input = 'Perl';

perl_checker($input);

sub perl_checker {
    my $input = shift;
    # [ ] で囲ま出た任意の1文字にマッチする
    # 正規表現を使う
    if ( $input =~ /[Pp]erl/ ) {
        print "Perl Monger!\n";
    }
}