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