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