my $str = shift;