末尾に一致


 $を使うと末尾に一致しているかどうかを調べることができます。
my @NUM = qw(one two three four five six seven eight nine ten);

# eで終わっている数を表示する
foreach my $word (@NUM) {
	print $word, "\n" if $word =~ /e$/;
}

関連項目

先頭に一致