$inputxml='<Book><Authorgroup><Author><Surname>Lester</Surname><Forename>D</Forename><Suffixes>Jr</Suffixes></Author></Authorgroup><Year>2009</Year><Book_Title>Writing research papers</Book_Title><Edition_No>4th</Edition_No><Publisher><Location><State>New York</State></Location><Name>Longman</Name></Publisher></Book>';
$variance='<Book><aa></aa><AuthorGroup><Author><Surname></Surname>, <Forename></Forename>, <Suffixes></Suffixes></Author>.</AuthorGroup> (<Year></Year>). <I><Book_Title></Book_Title></I> (<Edition_No></Edition_No> ed.). <Publisher><Location><State></State></Location>: <Name></Name></Publisher>.</Book>';
@variance_elements=$variance=~/<([^<\/]+)>/g;
@inputxml_elements=$variance=~/<([^<\/]+)>/g;