Regular Expression Perl

$line = ".Hello!";
if ($line =~ m/^\./) {
    print "You shouldn't start a sentence with a period!";
}