NAME

### Question limit

of 35 available terms

### 35 Multiple choice questions

1. /[A-Z]/
2. \$item = \$data{'2'};
3. @sorted = sort(@days);
4. open (my \$in, ">>file.txt");
print \$in "hello";
close \$in;
5. print "Hello world";
6. s/bob/mary/;
7. my %h = (1=>a, 2=>b);
8. /^ABC/
9. @rev = reverse(@days);
10. @a = split /,/,\$s;
11. \$first = shift(@days);
12. \$x = <STDIN>;
13. foreach \$x (@array) { print "\$x"; }
14. \$var = param('name');
15. if (\$s eq 'yes')
16. lc(\$s)
17. chomp(\$s)
18. #!/usr/bin/perl
use strict;
use CGI ':standard';
19. join(',','bob','mary');
20. /\w\s/
21. \$#array
22. \$last = pop(@days);
23. \$s = 'hello'.'world';
24. open(my \$in, "<file.txt");
while (my \$row = <\$in>) { print "\$row"; }
close \$in;
25. if (\$x ~= /[ABC]/)
26. my \$x = 5;
27. /ABC\$/
28. while ( (\$key, \$val) = each (%data) ) {print "\$key = \$val";}
29. my \$x = 'Mary';
30. my @a = (1, 2, 3);
31. substr(\$s, start, len)
32. length(\$s)
33. (\$x, \$y) = @days[1,2];
34. @var = param();
35. \$s ~= /(\d+) (\w+) (\d+)/;
print "\$1 \$2 \$3";