if ($from =~ /address|address2/ig) {
if ($to =~ /address|address2/ig) {
if ($textstuff =~ /sent from my ipod/ig || $textstuff =~ /sent from my iphone/ig) { 
print "From ME----\nSubject: $subject\nFrom: $from\nTo: $to\nDate: $date\nContent Type: content\nMime Type: $mime\nEffective Type: $effective\n";
&ipod;
}
else {
if ($textstuff !~ /sent from my ipod/ig || $textstuff !~ /sent from my iphone/ig) { 
print "----NOT ipod ----\nSubject: $subject\nFrom: $from\nTo: $to\nDate: $date\nContent Type: content\nMime Type: $mime\nEffective Type: $effective\n";
&ipod;
}