Scalar Asignment.pl

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

my $barney = "barney *2";

print "$barney";