#!/usr/bin/perl
use strict;

  my $data=();

  open(IN,"xxxx.in");
  while(<IN>){
     /<(\w+)>(.*)<\/\1>/;
     $data{$1} = $2;
  }
  close(IN);

print "Volume: $data{volume}\n";
print "Issue: $data{issue}\n";
print "Year: $data{year}\n";

##</code><code>##

#!/usr/bin/perl
use strict;

  open(IN,"xxxx.in");
  while(<IN>) {
    /<(\w+)>(.*)<\/\1>/;
    print ucfirst($1).": $2\n";
  }
  close(IN);

##</code><code>##

<volume>4</volume>
<issue>12</issue>
<year>2003</year>
<pages>200</pages>
<author>A N Other</author>

##</code><code>##

Volume: 4
Issue: 12
Year: 2003
Pages: 200
Author: A N Other