if ($mailto =~ s/\n|,/) {$flag = 1}
if ($email =~ s/\n|,/) {$flag = 1}
if ($subject2 =~ s/\n/) {$flag = 1}

if ($flag == 1){&error("メールアドレスに不正な文字が含まれています")}
何このキモい文法

my $flag = 0;
$flag = 1 if $mailto =~ /\n|,/;
$flag = 1 if $email =~ /\n|,/;
$flag = 1 if $subject2 =~ /\n/;
error("メールアドレスに不正な文字が含まれています") if $flag;
少なくともこちらのほうが可読性が高いし

error("メールアドレスに不正な文字が含まれています") if $mailto =~ /\n|,/ or $email =~ /\n|,/ or $subject2 =~ /\n/;

でスッキリする。

TIMTOWDIつっても限度あるぞゴラァ