#! /usr/bin/perl

# ユーザ入力
&check("Ken-Tomoeda");
&check("*Sakura*");
&check("Misaki!");
&check("Sora_Naegino");
&check("Takoyaki100%");
&check("Hi(^_^)/");
&check("Tomoyo Chan");
&check("Kinomoto");
&check("さくら");

# 半角英数以外文字チェックサブルーチン
sub check
{
	$userinput = shift @_;

	# チェック
	if( $userinput =~ m/\W+/ ) {
		print "半角英数以外の文字があります。: $userinput \n";
	}
	else {
		print "問題ありません。: $userinput \n";
	}
}

exit;