undef $/;
$data = <STDIN>;
$data =~ s@"([^"]+\.png)"@get_png ("greek_$1")@g;
print $data;