#!/usr/bin/perl
use strict;use warnings;
while ( <> ) {
  print "$1\n" if /<Answer type="string">(.+?)<\/Answer>/;
}