#!/usr/bin/perl
use strict;
use warnings;

# note: qx// can be used instead of ``.  Also any non alphanumeric character can replace / in the qx// expression.

my $output = `cat ./back_ticks.pl`;
print "=======================================\n";
print "SCALAR VALUE: $output\n";
print "=======================================\n";

my @output = `cat ./back_ticks.pl`;
print "=======================================\n";
for my $line (@output)
{
  print "ARRAY ELEMENT: $line";
}
print "=======================================\n";