if ( $Lines eq "\d+" ) #### if ( $Lines =~ m|(\d+)| ) #### print $1
## if ( $Lines =~ m|(\d+)| ) ##
## print $1