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