Perlコーディング初心者質問スレ Part 61

[0248 nobodyさん 2010/09/22(水) 03:34:18 ID:???]

use strict;
use warnings;

my $str = '今日は暑かったかもしれない。　しかし今日と違って明日は寒いようだ。　今日はお買い物に行った。';
my @test = $str =~ /今日.*?っ/gi;
print join("\n", @test);