my $country = "'tis of thee";
sub sing;
sing ("sweet land of liberty")
    if $country =~ m/^'\w{3}\s\w{2}\s\w{4}$/;