my $x='il yadayadayada'; 
$x=~s/^(\w{2})(.*)/<$1> $1$2 <$1>/;
print $x;

-- output --
<il> il yadayadayada <il>