my $input = shift;
if($input eq $scalar)
....

##</code><code>##

$string =~ /^user1$/;