open(my $fh, '<', $inputs)
   or die ...

while (<$fh>) { ... }

close($fh);  # Optional.

##</code><code>##

if ($line =~ /\Q$string\E/) { ... }

##</code><code>##

if ($line eq $string) { ... }