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