#!/usr/bin/perl
$x=0;
while (<>) {
  chomp;
  $x++;
  print "TRANSLATION_$x=$_\n";
}