my $str = '';