Select Code to Download

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

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

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

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

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

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

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

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