my ($Pattern, $c1, $c2) = ('') x 3;