$word =~ /^(\d)\st=(\S+)/;
next if ($1 == 0);
print "$2\n";

##</code><code>##

next if(!($word =~ /(\d)\st=(\S+)/));
print "$2\n";