my $string = 'string';

# true:
$string =~ /^string$/ and print "$string is really string?\n";
# false:
$string !~ /^string$/ and print "$string is not string?\n";
# STDOUT: string is really string