Which of the following numbers is legal in Perl?

Output of the Perl code? $var1 = 3; $var2 = 5.5; $var3 = $var1 + $var2**2; $var1++; print 'First output: $var3 + 2\n'; print 'Second output: ', $var3 + 2,'\n";

Which should be the first character of a verbatim paragraph?

The code will throw an error. Output of the code line in Perl 5.26.1? print ']' =~ /]/;

Output of the following Perl program? strict; sub example { @_ % 2 == 0 or die 'example: Ends\n'; my %ps = ( 'string' => 'Perl', 'between' => ' ', 'repeat' => 1, 'cascade' => 0, 'blankafter' => 1, @_); my $str = substr($ps{'string'}, 1); $str =~ s/(.)/$ps{'between'}$1/g; $str = substr($ps{'string'}, 0, 1) . $str; my $p = 0; for(my $n = $ps{'repeat'}; $n--; ) { print ((' ' x $p), '$str\n'); $p += $ps{'cascade'}; } print if $ps{'blankafter'}; } example; example(repeat => 2, string => 'EXAMPLE', cascade => 2); example(between => ' '); example(between => '==', repeat => 3); example(string => 'END!!', blankafter => 0); '>

The following program, when executed, should generate the output, 'Sample'; however, the program contains an error. Identify the line with error. 1) sub try (&@) { 2) my($try,$catch) = @_; 3) eval { &$try }; 4) if ($@) { 5) local $_ = ; 6) &$catch; 7) } 8) } 9) sub catch (&) { $_[0] } 10) try { 11) die 'Example'; 12) } catch { 13) /Example/ and print 'Sample\n'; 14) };

Does Perl provide the defined function that allows you to check up if a variable has the undef value or not?

The for loop has few semicolon-separated expressions within its parentheses. These expressions function as:

my $x=join(':','a','b') What will be the output of $x?

How can perl be called which gives the same functionality of 'use warnings'?

Which will check the script's syntax?