while ($_ =~ /({\d+})/ || $_ =~ /({\w+>)/ || $_  =~ /(<\w+})/){
  print "$1\n";
}