chomp( my @input = split(/^/m, $input) );