open my $STR, "<", \$scalar;