my $process_two = $1;
    $process_two =~ s/^(..).*/$1/;  # destroys the old value of $2!