11/03/10 18:47:45.63 Ikf1T4E90
# 名前<>メール<>日付<>本文<>スレタイ<>リモホと●<>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";}