my @x = split $split_pattern, $line;