#!/usr/local/bin/perl use strict; use warnings; my $name = "加藤"; print "Hello,$name san\n"; print "Hello,{$name}san\n";