while (){ s#^(\w{2}).*#<$1>$&<\/$1># && print } __DATA__ lg alkjslkjs sl slksjlkjslkjs slkjslkjs