my $s1 = <STDIN>;