g/my $comp = .*/s//my $comp = $cc;/
w