First, show your perl code or we can't point out where to fix it.

Some common things to check if you've already gone through the intro above:

• Did you chomp() the newline off the end of the input?
• Are you using string comparison (eq) or numeric (==) to compare your strings, or a regex?
• Did you consider case sensitivity?

Trivial example:

print "Can you read this? ";
my $answer = <STDIN>;
if ($answer =~ /^y(?:es)?$/i)
{
    print "Excellent\n";
}
else
{
    print "Then how did you answer?\n";
}
[download]

This has the benefit of accepting any of y, Y, yes, YES or Yes (to name a few).

Thank you very much. your response was really helpful. appreciate your help

#!/usr/bin/perl
use strict;
use warnings;

sub confirm{
   my $question=shift;
   my $reply = "";
   print "$question (y/n)?";
   while ($reply !~ m/^[yn]/i){ # allow for pedants who reply "yes" or
+ "now"
      chomp($reply=<STDIN>);
   }
   return $reply=~m/^y/i ? 1 : undef;
}
print confirm("can you write device drivers")?"wow, you must be very s
+killed\n":"neither can i, i am just shell script\n";
[download]

Hey, Thank you very much. your response was really helpful. appreciate your help. BTW i am Indian, i just like the way the Irish drink and am a very very big fan of Arsenal. cheers for your reply!! thanks! Go Gunners

Ahh, you probably won't be in Dublin for OSBarCamp so.
While my script answers your immediate question, the point of it was to understand all the elements within it.
• use strict and warnings, seems a pain at first but it will do 70% of your debugging
• When you have something like a confirmation dialog make a routine out of it, because you'll need to do it again. These routines can ultimately be built up into your own modules which take the drudgery out of development
• The ternary operator is quite useful(<condition>?true:false;)
• But as has been said above, in order to learn you have to make your own mistakes and the satisfaction of solving a puzzle is a great memory enforcement
BTW: Arshavin, brilliant or what ;)

If there's something else that stops you, what is it?

print "Can you write device drivers?";
my $answer =<>;
chomp;
if($answer=~/\byes\b/i){
        print "Wow, you must be very skilled\n";
        }else{
                print "Neither can I....";
                }
[download]

#!/usr/bin/perl

use strict;

print "can you write device drivers? ";
chomp(my $input = <> );
($input eq 'Y')  ? print 'wow, you must be very skilled'
                 : print 'neither can i, i am just shell script';
[download]