my $ini_path = qw( /home/bob/Documents/html_template_data/3.values.ini );
...
my $input_directory =
  qw( /home/bob/Documents/meditations/castaways/translate/data
);


##</code><code>##

my $ini_path = '/home/bob/Documents/html_template_data/3.values.ini';

##</code><code>##

my ( $ini_path ) = qw( /home/bob/Documents/html_template_data/3.values.ini );

##</code><code>##

if ( $prompt1 eq ( "y" | "Y" ) ) {
  show_lang_codes();
}

##</code><code>##

$ perl -le'use Data::Dumper; my $x = ( "y" | "Y" ); print Dumper $x'
$VAR1 = "y";


##</code><code>##

if ( $prompt1 eq "y" || $prompt1 eq "Y" ) {
  show_lang_codes();
}

##</code><code>##

if ( lc $prompt1 eq "y" ) {
  show_lang_codes();
}

##</code><code>##

if ( $prompt1 =~ /\Ay\z/i ) {
  show_lang_codes();
}