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