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

my ($var1, $var2);
$var1 = "Hello¥n";
$var2 = $var1;

print $var1;
print $var2;

$var1 = "こんにちは¥n";

print $var1;
print $var2;