#!/usr/bin/perl

use strict;
use warnings;

# read in the data line by line
while (my $line = <DATA>)
{
    # chomp off the newline
    chomp $line;
    # see if we have a match of two letters at the start
    # of the line
    if ($line =~ m|^(\w{2})|)
    {
        # if it matched, add tags
        my $tag = $1;
        print "<$tag> $line <$tag>\n";
    }
    else
    {
        # if it didn't match, just print the line
        print "$line\n";
    }
}

__DATA__
il yadayadayada

df yadayadayada