if( $string =~ m/(?<!\d)(\d{4,5})(?!\d)/ ) {
  print "$1\n";
}