#!/usr/bin/perl -w
use strict;
while(<DATA>){
  /^(\w+)\s+(\w+)$/;
  print "<$1><$2>\n";
}
__DATA__
abc def
xyz 6-7
123 456

##</code><code>##

<abc><def>
<a><d>
<123><456>