# 名前<>メール<>日付<>本文<>スレタイ<>リモホと●<>IP<>●・be<>UA Be NinjaID

my $hoge = "名前<>メール<>日付<>本文<>スレタイ<>リモホと●<>IP<>●・be<>UA Be NinjaID";
my ($name,$mail,$date,$mes,$title,$host,$ip,$maru,$uaa) = split("<>",$hoge);
if ($name =~ /★/g){return "Ninja88";}