...

while (<RA>) {
   my ($name,$add,$street) = split(/\|/,$_);
   chomp($street);
   my $ret = $sth->execute($name,$add,$street);
   print "no update for $name\n" if $ret == 0;
}