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