sub removetimestamp() {
  my ($line) = @_;
...
sub keyValue() {
  my ($line) = @_;
...
sub getSenderName() {
  my ($from_line) = @_;
...
sub getRecipientName() {
  my ($to_line) = @_;
...
sub doLog() {
  my ($msg, $line) = @_;