my $dummy = "Y";
   my @buffer = qw(a b c d);

   $dummy =~ /N/i;
   print join(//,@buffer),"\n";