Select Code to Download

my $line = "abd";
if ($line =~ /abcd/i) {
...
if ($line =~ /[abcd]/i) {
    print "matched the second case\n";
}