#!perl -w
use strict;
my $f = shift||exit print "\x09usage $0 <file>";
open my $FILE,$f or die $!; 
foreach my $text (<$FILE>)
{ 
   printcyr("'$1','$2','$3','$4','$5','$6'\n") if $text=~/(\d+) (\d+) ([A-Z]{2}) (.+?) (.+) (.+)/;
}
close $FILE;
sub printcyr 
{

	my $text = shift;
	$text =~ y/А-яЁё/\x80-\xaf\xe0-\xf1/;
	print $text;
}

C:\>p.pl  id.txt
'1348299520','1348300543','RU','Москва','Москва','Центральный'
'1348317184','1348321279','RU','Санкт-Петербург','Санкт-Петербург','Северо-Западный'
'1357710176','1357710207','RU','Мурманск','Мурманская область','Северо-Западный'
'1357710280','1357710287','RU','Москва','Москва','Центральный'
'1357710288','1357710295','RU','Подольск','Московская область','Центральный'