19 lines
168 B
Perl
19 lines
168 B
Perl
#Match case!
|
|
|
|
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
|
|
$_ = "Case";
|
|
|
|
if (/case/) {
|
|
print "found\n";
|
|
} else {
|
|
print "not found\n";
|
|
}
|
|
|
|
|
|
|
|
|
|
|