Re: Can't use string ("1") as a SCALAR ref while "strict refs" in use

use strict;
my $str="a b c d";
if(my($a,$b,$c,$d) = $str =~ m/(\S)\s(\S)\s(\S)\s(\S)/) {
    print $a,"\n",$b,"\n",$c,"\n",$d;
}
[download]

Comment on Re: Can't use string ("1") as a SCALAR ref while "strict refs" in use Download Code