ということで続きです。Perl や Windows での Tips や、その他情報源です。 Perl スクリプトのひな形 Round2 のタイミングでようやくひな形を準備するようになったんですけど、だいたいこんな感じで落ち着きました。 use strict; use warnings; use Data::Dumper; use Data::Dump qw/dump/; $| = 1; my @data = <DATA>; my $case_count = shift @data; for (my $case = 1; $case <= $case_count; $case++) { print "Case #$case: \n"; my ($h, $w) = split(' ', shift @data); } __DATA__ __DATA__ セグメントに example の問題文を