DB<1> $f = "_foo";

  DB<2> print "Success" if $f =~ /^[\w\.]+$/ && $f =~ /^\w/;
Success
  DB<3>