while(<DATA>) {
    s[(..)/(../..)][$2/$1];
    print;
}