sub remove_newlines { my $string = shift; my $clean_string = `echo -n $string`; return $clean_string; }