Select Code to Download

#!/usr/bin/perl
use strict;
...
print "Volume: $data{volume}\n";
print "Issue: $data{issue}\n";
print "Year: $data{year}\n";

#!/usr/bin/perl
use strict;
...
    print ucfirst($1).": $2\n";
  }
  close(IN);

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

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