$str =~ s/^\n+//;
    $str =~ s/\n+$//;