1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/perl

$foo1 = "Word";
$foo2 = "wor";
if ($foo1 =~ /word/i) {
        print "Word matches\n";
}
if ($foo2 =~ /word/i) {
        print "wor matches\n";
}
print "done\n";
exit(1);