C:\>perl -we "sub parse{${$_[0]}=~/\Gfoo/gc or die} parse \('foo') for 1..2"
Died at -e line 1.

C:\>perl -we "sub parse{${$_[0]}=~/\Gfoo/gc or die} parse \(''.'foo') for 1..2"

C:\>perl -MO=Deparse -we "sub parse{${$_[0]}=~/\Gfoo/gc or die} parse \('foo') for 1..2"
BEGIN { $^W = 1; }
sub parse {
    die unless ${$_[0];} =~ /\Gfoo/cg;
}
parse \'foo' foreach (1 .. 2);
-e syntax OK

C:\>perl -MO=Deparse -we "sub parse{${$_[0]}=~/\Gfoo/gc or die} parse \(''.'foo') for 1..2"
BEGIN { $^W = 1; }
sub parse {
    die unless ${$_[0];} =~ /\Gfoo/cg;
}
parse \'foo' foreach (1 .. 2);
-e syntax OK