sub process_input{
    my $data = shift;
    chomp($data);      # cut off newline
    $data =~ s/^\s*//; # remove leading blanks
    $data =~ s/\s*$//; # remove trainilg blanks
    return $data; 
}