my $string1 = cake,pastry my $string2 = ~cake,pastry