Perlクラブ

問題 1

問題 2

問題 3

問題 4

問題 5

問題 6

問題 7

問題 8

問題 9

問題 10

問題 11

問題 12

問題 13

問題 14

問題 15

問題 16

問題 17

問題 18

問題 19

問題 20

問題 21

問題 22

問題 23

問題 24

問題 25

問題 26

問題 27

問題 28

問題 29

問題 30

問題 31

  @str = qw/kyou mo genki da perl de genki!/;
  $out .= shift @str;
  $out .= pop @str;
  print $out . "
";