while (<>) { # for every line in info
m/^\s*(\S+)\s+(\S+)\s*$/ or next; # 
-f $1 or next; # skip if file to rename does not exist
-f $2 and next; # skip if file to rename does not exist
push @ren, [ $1, $2 ];
$ren[0]->[2] = "/DE/IN";
$ren[1]->[2] = "/DE/OUT";
}