#!/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";