Select Code to Download

my ($file)  = $string =~ /<file>([^<]+)/;
my ($line)  = $string =~ /<line>([^<]+)/;
my ($type)  = $string =~ /<type>([^<]+)/;
my ($codee) = $string =~ /<codee>([^<]+)/;
my ($desc)  = $string =~ /<desc>([^<]+)/;

my %info; # a better name should be picked
foreach ( qw/ file line type codee desc / ) {
  my ($info{$_}) = $string =~ /<\Q$_\E>([^<]+)/;
}