chomp(substr($str, 0, length($/));