use strict;
use warnings;
use Switch;

for ('abc', 'def', 'ghi')
{
    switch ()
    {
        case /bc/ { print "$_: matches 'bc'\n"; }
        case /de/ { print "$_: matches 'de'\n"; }
        case ''   { print "EMPTY STRING\n"; }
        else      { print "$_: no match found\n"; }
    }
}