I can't really much understand what you are trying to do actually.

What do you pass to the subroutine? Do the parameter variables carry any values when you call it? It seems to me that you would like to extract the fields in the subroutine, but why pass them in as parameters? It seems to me like the C pass-by-pointer scheme, but please don't do that. You will create a lot of scalability problems with this, and is very dangerous. If all parameters passed in are undef, you'd better drop the input parameters, return the extracted fields as a list and get them back at caller instead of modifying input parameters passed by reference. In Perl, this is just so simple to do. If you do this, you will save a lot of assigning to
@_. The best practice: avoid pass by reference except for passing object references or arrays/hash/other composite complex data structure that would otherwise be deformed if passed in in the normal way.

Also

Code:

$Name =~ s/^\s*(.*?)\s*$/$1/; # Line number 158 in original code

So, what is the value of $Name at that point? I don't see its value assigned before that but you are performing a regex on it! You would like to trim some string here, but if the string is undef, it must display that warning (it's not an error)!

Seems like this is what you intend

Code:

$Sender =~ s/^\s*(.*?)\s*$/$1/; # Line number 158 in original code