#!/usr/local/bin/perl

use strict;

$\="\n";

my $a = 1;
my $b = 2;
my $c = 3;

$a = ($b = 5);

print "$a $b $c";

print q!{${x}}!;

print "\$a$a";
