while(<DATA>) { 
   print "<$1>$1$2<$1>" if $_ =~ m|(\w{2})(.*)|;
}
__DATA__
il yadayadayada
df yadayadayada