my $variable = <STDIN>;
chomp $variable;