if ( $zahl =~ /^ # am anfang
  (\d) # erste ziffer
  \1+ # erste ziffer 1 oder n mal wiederholt (also 2x oder oefter)
  $ # ende
  /x ) {
  print "$zahl ist eine Schnapszahl";
}