s{(\S{30,}){
    my $ret = $1;
    if( $ret !~ /http/ ){
        $ret .= " ";
    }
    $ret;
}ge;