今日も今日とて

my $count = 1;

while (1){
	print "$count\n";
	$count++;
	
	if($count > 5){
		last;
	}
}

print "終了";

my $count = 0;

while($count <= 5){
	$count++;
	
	if($count == 2){
		next;
	}
	
	print "$count\n";
	
}

print "end\n";

my $count = 0;

while($count <= 5){
	$count++;
	
	if($count == 2){
		redo;
	}
	
	print "$count\n";
}
print "end\n";

my $str = "string";
my $str2 = "";

my $len = length($str);
my $count = 0;
my $ch;
my $temp;

while($count < $len){
	
	$temp = substr($str,$count,1);
	$ch = ord($temp);
	$ch++;
	$str2 = $str2.chr($ch);

	$count++;
}

print "$str\n";
print "$str2\n";