my $k = ''; # A bunch of junk happens to this scalar before this point
my $t = "\ttest    \n     \n";
($k) = $t =~ /^\s*(.*?)\s*$/g;
print $k ."\n";

##</code><code>##

my $k = ''; # A bunch of junk happens to this scalar before this point
my $t = "\ttest    \n     \n";
($k) .= $t =~ /^\s*(.*?)\s*$/g;
print $k ."\n";

##</code><code>##

my $k = ''; # A bunch of junk happens to this scalar before this point
my $t = "\ttest    \n     \n";
$t =~ /^\s*(.*?)\s*$/g;
($k) .= $1;
print $k ."\n";

##</code><code>##

my $k = ''; # A bunch of junk happens to this scalar before this point
my $t = "\ttest    \n     \n";
($k) .= $($t =~ /^\s*(.*?)\s*$/g)[0];
print $k ."\n";