Perl Test

if ($str = ~/test/) ✘ if ($str == "test") ✘ if ($str = "test") ✘ if ($str contains "test") ✔

$_ ✘ $& ✘ $` ✘ $ ✔

filelock() ✘ lock() ✘ flock() ✘ lockf() ✔

5 ✘ -3 ✘ 3 ✘ None of the above ✔

//This is a comment ✘ # This is a comment ✘ /* This is not a comment ✘ /# This is a comment ✔

System ✘ Run ✘ Exec ✘ Call ✔

1 ✘

/C++/ ✘ /C\+\+/ ✘ /C\Q++\E/ ✘ All of them would work ✔

enforce strict ✘ perform strict ✘ use strict ✘ be strict ✔

Hash variable ✘ Array variable ✘ Scalar variable ✘ Vector variable ✔