http://qs321.pair.com?node_id=776516

#calling function $whatever = trim($drivenum); ... sub trim { my $v = shift; my $deref = $$v; $deref =~ s/^\s+|\s+$//; return $deref; }