Help for this page

Select Code to Download


  1. or download this
    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";
  2. or download this
    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";
  3. or download this
    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";
  4. or download this
    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";