if( $lines[0] =~ /^1/ ){
    exit;
}

# oder

if( substr( $lines[0], 0, 1 ) == 1 ){
    exit;
}