#!/usr/bin/perl
open(DATA,"<data.txt");
@datainput=<DATA>;

$input=$ARGV[0];
$output=$ARGV[1];

open(OBFUSCATED,"<$input");
open(UNOBFUSCATED,">$output");

while(<OBFUSCATED>)
{
 foreach $data (@datainput)
 {
# print "DATA: $data";
  ($obsfunction,$unofunction) = split(/;/, $data);
#  print $obsfunction $unofunction;
  chomp($unofunction);
  $_ =~ s/$obsfunction/$unofunction/;
 }
 print UNOBFUSCATED $_;
}