Насчет кодировки
use Encode qw/encode decode/;
потом
print FILE decode('KOI8-R',$req);

А чтобы вытаскивать только то что тебе нужно используй регулярки