Perl 邮件地址检查

 #!C:/Perl/bin/perl.exe

#
#入力チェック
#
my $vI;
my $mailM;
my $mailF;
my $mailS;
my $mailD;
my $mailTo;
$mailD = 'wapqq@csdn.net';

if( isMailAddress($mailD) ){
 $mailS = length($mailD);
 $vI = index($mailD,'@');
 $mailM = substr($mailD, 0, $vI);
 $mailF = substr($mailD, $vI, $mailS);
 $mailTo = $mailM.'//'.$mailF;
 print "$mailS/n";
 print "$vI/n";
 print "$mailM/n";
 print "$mailF/n";
 print "$mailTo/n";
   print "メールアドレスです。/n";
}else{
  print "メールアドレスではありません。/n";
}

#---------------------------------------
#メールアドレスかチェックする
#---------------------------------------
sub isMailAddress{
  my $str = shift || return(undef);
  #-- メールアドレスか --#
  if( $str =~ /^([a-zA-Z0-9/./-//_]{1,})@([a-zA-Z0-9/./-//_]{1,})/.([a-zA-Z0-9/./-//_]{1,})$/ ){
    return(1);
  }
  #-- メールアドレスではないか --#
  else{
    return(0);
  }
}