#!/usr/bin/perl
# your code goes here
use strict;
use warnings;
use constant {
MYSTR => "HGjfslT",
};
my $rec_str = "jfslT";
if (MYSTR =~ /$rec_str/){
}
if (MYSTR =~ /^$rec_str$/){
print "This will not match!"; }
$rec_str = "HGjfslT";
if (MYSTR =~ /^$rec_str$/){
print "This will match!"; }
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQp1c2Ugc3RyaWN0Owp1c2Ugd2FybmluZ3M7CnVzZSBjb25zdGFudCB7Ck1ZU1RSID0+ICJIR2pmc2xUIiwKfTsKbXkgJHJlY19zdHIgPSAiamZzbFQiOwppZiAoTVlTVFIgPX4gLyRyZWNfc3RyLyl7CnByaW50ICJNYXRjaGVzISI7Cn0KaWYgKE1ZU1RSID1+IC9eJHJlY19zdHIkLyl7CnByaW50ICJUaGlzIHdpbGwgbm90IG1hdGNoISI7Cn0KJHJlY19zdHIgPSAiSEdqZnNsVCI7CmlmIChNWVNUUiA9fiAvXiRyZWNfc3RyJC8pewpwcmludCAiVGhpcyB3aWxsIG1hdGNoISI7Cn0=