The code will throw an error.

 What will be the output of the following 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) };

What will be the output of the following Perl program? #!perl -l 'ooooos' =~ / (?: o | (?{print 'Greetings'}) (?=(os)) )* /x; print $&; print $1;

Which is the correct Pod formatting code syntax?

What will be the output of the following Perl program? sub myExample { my $a = shift; return sub { my $b = shift; print '$a, $b!\n'; }; } $var1 = myExample('Mango'); $var2 = myExample('Fruit'); &$var1('Potato'); &$var2('Vegetable');

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

Which will check the script's syntax?

Will perl be installed in Windows by default?

Unless it is the final statement in a block, every simple statement must end in:

Which get you an array of all numbers matched in a string?