#!perl/bin/perl

use strict;

print "Are you sure you want to quit ('yes' or any key for 'no'): ";
chomp($_ = <STDIN>);

if (/\byes\b/i) {
   print "Press any key to exit...";
   <STDIN>;
   exit;
}
else {
   print "Thanks, you stayed... But then, goodbye.\n";
   print "Press any key to proceed...\n";
   <STDIN>;
}

print "GOOD DAY";

##</code><code>##

#!perl/bin/perl

use strict;

print "Are you sure you want to quit ('yes' or any key for 'no'): ";
chomp($_ = <STDIN>);

/\byes\b/i ?
   eval {
      print "Press any key to exit...";
      <STDIN>;
      exit;
   }
:
   eval {
      print "Thanks, you stayed... But then, goodbye.\n";
      print "Press any key to proceed...\n";
      <STDIN>;
   };

print "GOOD DAY";

##</code><code>##

#!perl/bin/perl

use strict;

print "Are you sure you want to quit ('yes' or any key for 'no'): ";
chomp($_ = <STDIN>);

/\byes\b/i ?
   \& {
      print "Press any key to exit...";
      <STDIN>;
      exit;
   }
:
   \& {
      print "Thanks, you stayed... But then, goodbye.\n";
      print "Press any key to proceed...\n";
      <STDIN>;
   };

print "GOOD DAY";