my $s1 = 'foofoo';
my $s2 = 'foo'