What is $_ ?

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

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

Will perl be installed in Windows by default?

Which will check the script's syntax?

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

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');

Which is the correct Pod formatting code syntax?

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

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) };

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); '>