use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $str = "homepage";
print "対象:$str\n";

if ($str =~ /^home$/){
  print "「^home\$」にマッチします\n";
}else{
  print "「^home\$」にマッチしません\n";
}

$str = "my home";
print "対象:$str\n";

if ($str =~ /^home$/){
  print "「^home\$」にマッチします\n";
}else{
  print "「^home\$」にマッチしません\n";
}

$str = "home";
print "対象:$str\n";
if ($str =~ /^home$/){
  print "「^home\$」にマッチします\n";
}else{
  print "「^home\$」にマッチしません\n";
}