#!/usr/bin/perl
open(I1,"SSS225.lst");
open(I2,"OMOK225B.lst");
while($l1=<I1>) {
	chop($l1);
	$l2=<I2>; chop($l2);
	print "$l2\n";
	`sed -e s:SSS225:OMOK225B:g SSS225/$l1 > OMOK225B/$l2`;
}