#!/bin/perl

use File::Path;

##</code><code>##

#!/bin/perl
use warnings;
use strict;

use File::Path;

##</code><code>##

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

##</code><code>##

sub removetimestamp() {
  my ($line) = @_;
  my $ind = index($line, " ");
  if ( $ind != "-1" ) {
    $time = substr($line, 0, $ind);
    $line = substr($line, $ind + 1);
    return ($time, $line);
  }
}

##</code><code>##

sub removetimestamp {
  my ( $line ) = @_;
  ( my $time, $line ) = split / /, $line, 2;
}

##</code><code>##

        my ($time, $data) = removetimestamp($line);
        my ($key, $value) = keyValue($data);

##</code><code>##

        my ($time, $data) = split / /, $line, 2;
        my ($key, $value) = split / /, $data, 2;