my ($str) = @_;