my $str = "#Select";
if ($str =~ m/^Select$/)
{
    print "matched..\n";
}
else
{
        print "not matched..\n";
}
[download]

output: not matched