$str =~ s/.*//;
print 0;