#my $s1 = thisstring;