my @a = split ' ', $s1;
my @b = split ' ', $s2;