Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. Match case
#!/usr/bin/perl -w
use strict;
$_ = "Case";
if (/case/) {
    print "found\n";
} else {
    print "not found\n";
}