print "Get other translations(y/n)?: "; my $prompt = ; chomp $prompt; if ( $prompt eq ( "y" or "Y" ) ) { my @translators = qw /yandex bing/; for my $remote (@translators) { my $trans_munge = path( $vars{translations}, "$remote." . $munge ); ## use trans shell say "getting translation from $remote"; system("trans :$lang -e $remote file://$in_path >$trans_munge"); }