[oracle@jhoa 7]$ cat 5.pl 
if ( $#ARGV < 0 ){
        print "请输入一个日期参数\n";
        exit(-1);
    }
  $var = $ARGV[0];
if ($var =~/xy/) ##匹配xy字符
{print "ok\n"} 
else
{print "no\n"}



[oracle@jhoa 7]$ perl 5.pl  xy
ok
[oracle@jhoa 7]$ perl 5.pl  xyzz
ok
[oracle@jhoa 7]$ perl 5.pl  yyy
no