#!/usr/bin/perl -pi.bak
BEGIN{undef $/;}
s|\.\./images/|/znatoki/boris/images/|g;