consistently use 'env perl' command for environments where the 1st perl in PATH isn't the default perl. Which is kinda stupid

scripts/OSM/OSM-Train.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 use Getopt::Long "GetOptions";

scripts/OSM/extract-singletons.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl 
 
 use Getopt::Std;
 getopts('q');

scripts/OSM/flipAlignment.perl

@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#!/usr/bin/env perl 
   use strict;
 
   my $file = shift(@ARGV);

scripts/Transliteration/clean.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl 
 
 #input hindi word urdu word, delete all those entries that have number on any side
 use utf8;

scripts/Transliteration/corpusCreator.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/Transliteration/in-decoding-transliteration.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/Transliteration/post-decoding-transliteration.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/Transliteration/prepare-transliteration-phrase-table.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/Transliteration/threshold.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl 
 
 use utf8;
 require Encode;

scripts/Transliteration/train-transliteration-module.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use utf8;
 use strict;

scripts/analysis/bootstrap-hypothesis-difference-significance.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl 
 use utf8;
 
 ###############################################

scripts/analysis/nontranslated_words.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl 
 
 # $Id$
 # Reads a source and hypothesis file and counts equal tokens. Some of these

scripts/analysis/oov.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl 
 # Display OOV rate of a test set against a training corpus or a phrase table.
 # Ondrej Bojar
 

scripts/analysis/sentence-by-sentence.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 # $Id$
 #sentence-by-sentence: take in a system output, with any number of factors, and a reference translation, also maybe with factors, and show each sentence and its errors

scripts/analysis/sg2dot.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 # 
 # Author : Loic BARRAULT
 # Script to convert MOSES searchgraph to DOT format

scripts/analysis/show-phrases-used.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 # $Id$
 #show-phrases-used: display all source and target phrases for each sentence in a corpus, and give average phrase length used

scripts/analysis/smtgui/filter-phrase-table.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 # $Id$
 #by Philipp Koehn, de-augmented by Evan Herbst

scripts/analysis/suspicious_tokenization.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl 
 # Collects and prints all n-grams that appear in the given corpus both
 # tokenized as well as untokenized.
 # Ondrej Bojar

scripts/analysis/weight-scan.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl 
 # runs Moses many times changing the values of one weight, all others fixed
 # nbest lists are always produced to allow for comparison of real and
 # 'projected' BLEU (BLEU estimated from n-best lists collected at a neighouring

scripts/ems/experiment.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 # Experiment Management System
 # Documentation at http://www.statmt.org/moses/?n=FactoredTraining.EMS

scripts/ems/fix-info.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/ems/support/analysis.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 use Getopt::Long "GetOptions";

scripts/ems/support/build-domain-file-from-subcorpora.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/ems/support/build-sparse-features.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/ems/support/consolidate-training-data.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 # $Id: consolidate-training-data.perl 928 2009-09-02 02:58:01Z philipp $
 

scripts/ems/support/generic-multicore-parallelizer.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/ems/support/generic-parallelizer.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/ems/support/input-from-sgm.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/ems/support/interpolate-lm.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 use IPC::Open3;

scripts/ems/support/lmplz-wrapper.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 use Getopt::Long "GetOptions";

scripts/ems/support/mml-filter.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 use FindBin qw($RealBin);

scripts/ems/support/mml-score.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/ems/support/mml-train.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/ems/support/prepare-fast-align.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/ems/support/reference-from-sgm.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/ems/support/remove-segmentation-markup.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/ems/support/report-experiment-scores.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 # $Id: report-experiment-scores.perl 407 2008-11-10 14:43:31Z philipp $
 

scripts/ems/support/run-command-on-multiple-refsets.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/ems/support/run-wade.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl 
 
 use strict;
 use File::Temp qw/ tempfile tempdir /;

scripts/ems/support/split-sentences.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 # Based on Preprocessor written by Philipp Koehn
 

scripts/ems/support/substitute-filtered-tables-and-weights.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w 
+#!/usr/bin/env perl 
 
 use strict;
 use Getopt::Long "GetOptions";

scripts/ems/support/substitute-filtered-tables.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w 
+#!/usr/bin/env perl 
 
 # experiment.perl support script
 # get filtered rule and reordering tables and place them into a configuration file

scripts/ems/support/substitute-weights.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w 
+#!/usr/bin/env perl 
 
 # experiment.perl support script
 # get filtered rule and reordering tables and place them into a configuration file

scripts/ems/support/symmetrize-fast-align.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/ems/support/thot-lm-wrapper.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 use Getopt::Long "GetOptions";

scripts/ems/support/tree-converter-wrapper.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/env perl
+#!/usr/bin/env perl 
 
 use warnings;
 use strict;

scripts/ems/support/wrap-xml.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/ems/web/progress.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 use Date::Parse;

scripts/fuzzy-match/create_xml.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w 
+#!/usr/bin/env perl 
 
 binmode( STDIN,  ":utf8" );
 binmode( STDOUT, ":utf8" );

scripts/generic/compound-splitter.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w 
+#!/usr/bin/env perl 
 
 use strict;
 use Getopt::Long "GetOptions";

scripts/generic/extract-factors.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 # $Id$
 #extract-factors.pl: extract only the desired factors from a factored corpus

scripts/generic/extract-parallel.perl

@@ -1,4 +1,4 @@
-#! /usr/bin/perl -w 
+#!/usr/bin/env perl 
 
 # example
 #  ./extract-parallel.perl 8 ./coreutils-8.9/src/split "./coreutils-8.9/src/sort --batch-size=253" ./extract ./corpus.5.en ./corpus.5.ar ./align.ar-en.grow-diag-final-and ./extracted 7 --NoFileLimit orientation --GZOutput

scripts/generic/fsa2fsal.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/env perl
+#!/usr/bin/env perl 
 # A very simple script that converts fsa format (openfst lattices) to the same
 # thing represented one sentence per line. It uses '|||' to delimit columns and
 # ' ' to delimit nodes (i.e. original lines).

scripts/generic/fsa2plf.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl 
 # Converts AT&T FSA format to 'python lattice format'.
 # Note that the input FSA needs to be epsilon-free and topologically sorted.
 # This script checks for topological sortedness.

scripts/generic/fsal2fsa.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/env perl
+#!/usr/bin/env perl 
 # A very simple script that converts fsal back to fsa format (openfst lattices)
 # Ondrej Bojar, bojar@ufal.mff.cuni.cz
 

scripts/generic/generic-parallel.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 use utf8;

scripts/generic/giza-parallel.perl

@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#!/usr/bin/env perl 
 
 # example
 # ~/giza-parallel.perl 10 split ~/workspace/sourceforge/trunk/scripts/training/train-model.perl ar en train align

scripts/generic/lopar2pos.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 # $Id$
 #lopar2pos: extract POSs from LOPAR output

scripts/generic/moses-parallel.pl

@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#!/usr/bin/env perl 
 
 # $Id$
 #######################

scripts/generic/mteval-v12.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
  
 use strict;
 use utf8;

scripts/generic/mteval-v13a.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl 
 
 use warnings;
 use strict;

scripts/generic/multi-bleu.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 # $Id$
 use strict;

scripts/generic/ph_numbers.perl

@@ -1,4 +1,5 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
+
 package ph_numbers;
 
 # Script to recognize and replace numbers in Moses training corpora

scripts/generic/qsub-wrapper.pl

@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#!/usr/bin/env perl 
 
 # $Id$
 use strict;

scripts/generic/reverse-alignment.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/generic/score-parallel.perl

@@ -1,4 +1,4 @@
-#! /usr/bin/perl -w 
+#!/usr/bin/env perl 
 
 # example
 # ./score-parallel.perl 8 "gsort --batch-size=253" ./score ./extract.2.sorted.gz ./lex.2.f2e ./phrase-table.2.half.f2e  --GoodTuring ./phrase-table.2.coc 0

scripts/generic/strip-xml.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w 
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/generic/trainlm-irst2.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 # Compatible with sri LM-creating script, eg.
 #    ngram-count -order 5 -interpolate -wbdiscount -unk -text corpus.txt -lm lm.txt

scripts/generic/trainlm-lmplz.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 # Compatible with sri LM-creating script, eg.
 #    ngram-count -order 5 -interpolate -wbdiscount -unk -text corpus.txt -lm lm.txt

scripts/other/beautify.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl 
+#!/usr/bin/env perl 
 
 use strict;
 use File::Basename;

scripts/other/convert-pt.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl 
 
 # $Id$
 # convert a phrase-table with alignment in Moses' dead-end format

scripts/other/delete-scores.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl 
+#!/usr/bin/env perl 
 
 use strict;
 use Getopt::Long "GetOptions";

scripts/other/get_many_translations_from_google.perl

@@ -1,4 +1,5 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl 
+
 # Uses Google AJAX API to collect many translations, i.e. create a parallel
 # corpus of Google translations.
 # Expects one sentence per line, not tokenized!

scripts/other/retain-lines.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl 
 
 #retain lines in clean.lines-retained.1
 use strict;

scripts/other/translate_by_microsoft_bing.perl

@@ -1,4 +1,5 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl 
+
 # Script implemented by Pranava Swaroop Madhyastha (a student at Charles
 # University, UFAL)
 

scripts/recaser/detruecase.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 use Getopt::Long "GetOptions";

scripts/recaser/recase.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 # $Id$
 use strict;

scripts/recaser/train-recaser.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 # $Id$
 use strict;

scripts/recaser/train-truecaser.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 # $Id: train-recaser.perl 1326 2007-03-26 05:44:27Z bojar $
 

scripts/recaser/truecase.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 # $Id: train-recaser.perl 1326 2007-03-26 05:44:27Z bojar $
 use strict;

scripts/regression-testing/compare-results.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 my ($results, $truth) = @ARGV;

scripts/regression-testing/create_localized_moses_ini.pl

@@ -1,4 +1,4 @@
-#! /usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 my $script_dir; BEGIN { use Cwd qw/ abs_path /; use File::Basename; $script_dir = dirname(abs_path($0)); push @INC, $script_dir; }

scripts/regression-testing/modify-pars.pl

@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#!/usr/bin/env perl 
 
 use strict;
 	

scripts/regression-testing/moses-virtual.pl

@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/regression-testing/run-single-test.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 my $script_dir; BEGIN { use Cwd qw/ abs_path /; use File::Basename; $script_dir = dirname(abs_path($0)); push @INC, $script_dir; }

scripts/regression-testing/run-test-suite.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl 
 
 use strict;
 my $script_dir; BEGIN { use Cwd qw/ abs_path /; use File::Basename; $script_dir = dirname(abs_path($0)); push @INC, $script_dir; }

scripts/tokenizer/deescape-special-chars-PTB.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/tokenizer/deescape-special-chars.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/tokenizer/detokenizer.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 # $Id: detokenizer.perl 4134 2011-08-08 15:30:54Z bgottesman $
 # Sample De-Tokenizer

scripts/tokenizer/escape-special-chars.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/tokenizer/lowercase.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/tokenizer/normalize-punctuation.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/tokenizer/pre-tokenizer.perl

@@ -1,4 +1,5 @@
-#!/usr/bin/perl -W
+#!/usr/bin/env perl 
+
 # script for preprocessing language data prior to tokenization
 # Start by Ulrich Germann, after noticing systematic preprocessing errors
 # in some of the English Europarl data.

scripts/tokenizer/remove-non-printing-char.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl 
 
 use utf8; 
 

scripts/tokenizer/replace-unicode-punctuation.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 use strict;
 

scripts/tokenizer/tokenizer.perl

@@ -1,4 +1,5 @@
-#!/usr/bin/env perl
+#!/usr/bin/env perl 
+
 use warnings;
 
 # Sample Tokenizer

scripts/tokenizer/tokenizer_PTB.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 # Sample Tokenizer
 ### Version 1.1

scripts/training/absolutize_moses_model.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl 
 
 # $Id$
 # given a moses.ini file, prints a copy to stdout but replaces all relative

scripts/training/analyse_moses_model.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl 
 
 # $Id$
 # given a moses.ini file, checks the translation and generation tables and reports

scripts/training/binarize-model.perl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
 #
 # Binarize a Moses model